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Wie de software van een Powercar¬ 
tridge eens wil ‘openschroeven’, om 
voor eigen gebruik verder toe te pas¬ 
sen, kan met dit artikel aan de slag. 


Functie-analyse 11 

Peter Heinckens laat zien hoe func¬ 
ties in bestaande programma's kun¬ 
nen worden ingevoerd. 


Software nieuws C-64 19 

Veel nieuwe informatie over de soft¬ 
ware voor deze onsterfelijke home¬ 
computer 
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Vooral bedoeld voor het onderwijs is 
eenprogrammeertaal ontwikkeld op 
basis van het bekende LOGO-pro- 
gramma. ‘Zelfontdekkend’ leren wer¬ 
ken met een computer staat daarbij 
voorop. 


Wij hebben voor U alle belangrijke 
Amiga software bij elkaar gezet in een 
handig en informatief overzicht 


Amiga nieuws 70 

Een apart blokje nieuwtjes over aller¬ 
lei Amiga-zaken in binnen en buiten¬ 
land. 


Basic Basic 19 73 

In dit alweer negentiende deel van de¬ 
ze programmeercursus gaat Jan Bod- 
zinga in op het verschijnsel ‘strings’. 


Machinetaal 10 79 

In onze cursus machinetaal vertelt 
Tjipke van der Land over machinetaal 
software. 
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(Deze keer geen Kleine Advertenties en 
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30 
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34 
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38 
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39 
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40 
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42 
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46 

KubusC16 

48 

Tape DiskC 16 

49 


Redactioneel 

Met grote verwachtingen ging ik begin ja¬ 
nuari naar de CES tentoonstelling in Las 
Vegas, waar Commodore traditioneel 
haar nieuws voor het komende jaar laat 
zien. Maar helaas hadden zowel Commo¬ 
dore als aartsconcurrent Atari besloten dit 
jaar deze beurs voor consumentenelec- 
tronica niet te gebruiken. Dat is jammer, 
maar ook weer een extra signaal, dat de 
dagen van de huiscomputer langzamer¬ 
hand aan het aflopen zijn. Er worden nog 
wel veel computers veri<ocht, maar het 
image van de Amiga en de PC is wat se¬ 
rieuzer geworden. Men wil niet meer in de 
sfeer van de spelletjesmachine zitten, die 
markt is duidelijk overgelaten aan bijvoor¬ 
beeld Nintendo, dat 3 miljoen spelsyste¬ 
men in de VS heeft verkocht en ondertus¬ 
sen bijna één miljard dollar omzet. 


Natuurlijk waren er wel nieuwe dingen te 
zien in Las Vegas, waaronder noga! wat 
goede Amiga software, maar in het alge¬ 
meen was de trend wat teleurstellend qua 
computers. Vendex (pacific), met Maurice 
de Hond nu officieel ais president, was 
een van de weinige actieve bedrijven op 
de tentoonstelling. Verder waren in het 
kader van het Home Office de Personal 
Fax en ook Home Automation systemen 
van o.a. NEC en Mitsubishi de nieuwe 
trends in consumenten electronica. De 
winkeliers op audio en videogebied gaan 
de komende jaren waarschijnlijk hun 
computerboek opdoeken en volzetten 
met dat soort apparatuur, zo blijft er altijd 
wel wat nieuws te verkopen. Voor het 
computernieuws hoeven we volgend jaar 
niet meer naar deze beurs, maar naar de 
Comdex computershow. 

Luc Sala 
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De Power Cartridge van KCS is een veelzijdige hulp voor mensen die niet genoeg heb¬ 
ben aan een kale C-64. Het kastje maakt het onder andere mogelijk om sneller te la¬ 
den en te saven, schermen te printen en gemakkelijker te programmeren in Basic en 
machinetaal. Je kunt er verder bijna alle programma’s mee ‘kraken’, dat wil zeggen: je 
kunt ze onderbreken, eventueel saven of bekijken, en later weer vervolgen. De Power 
Cartridge is nu zelf gekraakt. 

De Power Cartridge 
gekraakt 


W ie wil leren over machinetaal, moet een cursus volgen of boeken bestu¬ 
deren. Maar dat is nog niet genoeg, je moet ook nog ervaring opdoen. 
Je kunt zelf het een en ander proberen, maar het helpt vaak om het werk van 
professionele programmeurs te bekijken. Zo kun je veel leren over program¬ 
meertechnieken en over je computer. De ideale leerstof is natuurlijk een car- 
tridge; nooit laadproblemen of wachttijden. De Power Cartridge bevat veel¬ 
zijdige software, voor Basic-uitbreidingen, printer- en disk-sturing, geluid, 
sprites enzovoorts. 


Het probleem was alleen: hoe kom je 
‘in’ de cartridge? Welnu, als je dit ar¬ 
tikel leest, zal het je wel duidelijk wor¬ 
den . De uitleg is soms vrij technisch, 
en kan eigenlijk alleen begrepen wor¬ 
den door mensen die al wat van de C- 
64 en van machinetaal afweten. Uiter¬ 
aard wordt wel een poging gedaan om 
alles zo eenvoudig mogelijk te hou¬ 
den, maar soms ontkom je er niet aan 
een aantal technische, soms ingewik¬ 
kelde begrippen te gebruiken. Daarna 
volgt de beschrijving van een korte 
speurtocht door de software in de car¬ 
tridge. 

Kf:piëren naar R AM 
De ROM van de Power Cartridge is 
aanwezig in het geheugen van de C- 
64 zodra de ingebouwde machine- 
taal-monitor gestart is met de op¬ 
dracht MONITOR, en er verder geen 
programma lijkt te draaien. En daar 
gaat het om: het moet lijken alsof er 
geen programma loopt. Maar er zijn 
‘programma’s’ die bijna continu draai¬ 
en, en dat zijn de interrupt-handlers. 
Dat zijn stukjes software die voor al¬ 
lerlei dingen zorg dragen waarbij re¬ 
gelmaat gewenst is, zoals het knippe¬ 


ren van de cursor, het bijhouden van 
de klok, en het lezen van het toetsen¬ 
bord. 

De vector ofwel pointer voor de IRQ 
(interrupt request = verzoek tot onder¬ 
breking) bevindt zich in de adressen 


788 en 789 ($0314 en $0315) en kan 
gemakkelijk veranderd worden, zodat 
er een zelfgeschreven stukje software 
toegevoegd kan worden aan de stan¬ 
daard interrupt-handler. 


De Power Cartridge 
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Programma 

Het programma dat op het eind van dit 
artikel beschreven wordt zorgt ervoor 
dat de interrupt-pointer wijst naar een 
stuk machinetaal dat het geheugen 
van 32768 tot 40959 ($8000 tot 
$9FFF) op zichzelf kan kopiëren. Hier¬ 
bij wordt het principe gehanteerd dat 
geldt bij het kopiëren van de Basic- 
ROM en de Kernal-ROM in de scha- 
duw-RAM. 

Het kopiëren gebeurt pas als de ge¬ 
bruiker dat zelf wil, en dat wordt aan¬ 
gegeven door op de SHIFT, CTRL of 
C=-toets te drukken. Tegelijkertijd 
wordt dan ook de pointer teruggezet, 
zodat hij naar het ‘standaard’ IRQ- 
adres wijst, om te voorkomen dat er 
elke keer weer gekopiëerd wordt, als 
je een van de aangegeven toesten in¬ 
drukt. 


Monitor niet verlaten 

Het is voor het kopiëren van essenti¬ 
eel belang om de monitor niet te ver¬ 
laten voor je een van de aangegeven 
toetsen hebt ingedrukt, want anders 
kopieert de computer alleen maar de 
RAM naar zichzelf. 

Na het kopiëren kun je met M8000 
8080 al vast even kijken of alles ook 
inderdaad gelukt. Wanneer je dan op 
kleine letters overschakelt, moetje er¬ 
gens rechtboven CBM80 zien staan, 
de code die aan de rest van de com¬ 
puter meedeelt dat er een zelfstallen¬ 
de cartridge is. Is dat niet het geval, 
dan heb je waarschijnlijk ergens een 
fout gemaakt. 


BASIC-variabeien 

Onthoud overigens dat Basic-pro- 
gramma’s die variabelen gebruiken of 
berekeningen uitvoeren hun gege¬ 
vens opslaan in het geheugen op 
adres 40959 en lager, en dat is dus 
precies op de plek waar de ROM heen 
gekopiëerd is. De gegevens uit de 
ROM zullen verloren gaan en blijven 
ais je variabelen gebruikt, totdat je al¬ 


les opnieuw kopiëert. Dit kun je voor¬ 
komen door voor het kopiëren de vol¬ 
gende opdrachten te geven: POKE 
56,128:CLR (return). Die zorgt ervoor 
dat het hoogste adres dat de Basic ge¬ 
bruikt, op 128x256 = 32768 komt te 
liggen, en dat er geen variabelen blij¬ 
ven bestaan in het oude gebied. Je 
kunt de bovenstaande opdrachten na¬ 
tuurlijk opnemen in het programma. 


Verschillend 

Bij gebruik van verschillende exem¬ 
plaren viel op dat er tenminste twee 
verschillende versies van de Power 
Cartridge zijn. Ze zijn gemakkelijk van 
elkaar te onderscheiden: ze verschil¬ 
len in de werking van functietoets F6. 
Bij de ene versie krijg je DSAVE" te 
zien, bij de andere LÓAD"",2 gevolgd 
door een automatische return. Intern 
zijn ze ook enigszins anders, zo ver¬ 
schillen de meeste adressen enkele 
bytes. 


Het zoeken 

Als het kopiëren achter de rug is, volgt 
het zoeken naar interessante pro- 
gramma-gedeelten. Door de verschil¬ 
lende versies zul je de adressen die je 
hier aantreft moeten interpreteren als 
"omstreeks adres xxxx", en daar vlak 
voor of na zul je dan de betreffende 
machinetaal of tekst kunnen terugvin¬ 
den. 


Speurtocht 

Op de speurtocht kun je het best zoe¬ 
ken naar bepaalde adressen die ge¬ 
bruikt moeten worden in de cartridge, 
bijvoorbeeld naar $D400 of $D000 
voor respectievelijk geluid of sprites. 
Het zoeken gebeurt uiteraard met het 
Monitor-commando H (hunt = jaag). 
Je kunt ook M8000 intikken en de 
tekst doör laten lopen. Dan zie je het 
volgende: 


• 1) vanaf $8260: de Power Cartrid¬ 
ge Basic-uitbreidingen; 

• 2) vanaf $8438: de teksten die bij 
de functietoetsen horen; 

• 3) vanaf $8530: de tekst ‘backup’, 
waarschijnlijk staat hier de stan- 
daard-naam voor bij een backup- 
tape of -disk zonder voorafgaande 
ILOAD"naam": 

• 4) vanaf $9B28: de foutmeldingen 
van het monitor-programma, de 
tekst "*** powermon 2.0 ***", de te 
gebruiken een-letter- commando’s 
van het monitor-programma, en de 
standaard register-regel, voor als 
je R intikt of de monitor binnen¬ 
komt. 

Bij gewoon zoeken met H kun je het 
volgende proberen: H8000 AOOO 00 
D4 (return), dit zoekt naar opdrachten 
die het eerste adres van de SID-chip 
gebruiken. Dit zal - allemaal bij deze 
versie van de cartridge - opleveren: 
9BE0. Nu moet je dus daar ergens 
zoeken. Probeer daarom D9BD0 
9BF0, en dan zie je een aantal JSR- 
opdrachten, gevolgd door een regel 
met: 9BDD LDA #$00. Doe dan: 
J9BDD (of het adres dat je zelf gevon¬ 
den hebt voor de regel met LDA 
#$00), en je hoort de toon die je nor¬ 
maal alleen hoort als je in de monitor 
een fout maakt, en dat terwijl alles juist 
goed ging! 

De hele cartridge doorzoeken 

Op deze manier kun je de hele cartrid¬ 
ge doorzoeken. Uiteraard kun je ook 
subroutines, zoals bijvoorbeeld voor 
het uitprinten van een grafisch 
scherm, eruit lichten en voor eigen ge¬ 
bruik aanwenden, eventueel met wij¬ 
zigingen, en zonder de Power Cartrid¬ 
ge. Bedenk wel dat er copyright op de 
software zit, dus probeer het maar niet 
te verkopen. Veel plezier bij het zoe¬ 
ken! 

Peter Broekhuizen 


Het programma: 

10 FORT=0TO52:READA:POKE51200+T,A:X=X+A:NEXT 
20 IFX<>7329THENPRINT"FOUT IN DATA":END 

30 SYS51200:PRINTCHR$(147):PRINT"DRUK OP SHIFT, CTRL OF C=, DAARNA" 
40 PRINT"IS DE CARTRIDGE GEKRAAKT!":MONITOR 
50 D ATA120,169,13,141,20,3,169,200,141,21,3,88,96,173,141,2,240,32 
60 DATA169,49,141,20,3,169,234,141,21,3,162,128,134,252,160,0,132,251 
70 DATA177,251,145,251,200,208,249,230,252,232,224,160,208,242,76,49,234 
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Het invoeren van functies in een programma, is in de meeste gevallen een oh. gelij¬ 
ke klus. De vreemdste capriolen worden soms uitgehaald om de functies toch in het 
programma in te voeren. Peter Heinckiens laat zien hoe een mogelijke oplossing voor 
dit probleem kan worden gevonden. 


Sub-routines als praktische oplossing 


Functie-analyse (1) 

I edereen die wel eens geprobeerd heeft een programma te schrijven waar¬ 
bij de gebruiker een bepaalde formule moest kunnen ingeven, zal zich heb¬ 
ben afgevraagd hoe de computer zo kan worden geïnstrueerd, dat die for¬ 
mule ook begrepen wordt. De meeste programmeertalen laten immers niet 
toe dat een functie ingegeven wordt terwijl het programma loopt. 


De meest rare trucs worden soms uit¬ 
gehaald om toch functies te kunnen 
invoeren: men gaat het programma 
onderbreken, om de functie in de lis- 
ting te plaatsen, of men probeert de 
formule rechtstreeks vanuit het pro¬ 
gramma in de listing POKEn (in BA¬ 
SIC). 

Het probleem met deze methodes is 
echter dat het programma ten eerste 
niet meer overdraagbaar is naar an¬ 
dere machines, en dat men tevens 
problemen krijgt met het compileren 
van het programma naar machineco- 
de. De programmalisting is immers 
verdwenen, en een formule plaatsen 


in een listing die niet bestaat, dat is 
pas echt moeilijk. 

Een mogelijke oplossing is gebruik te 
maken van een sub-programma 
waarin de functie gedefinieerd wordt, 
en dit programma dan het hoofdpro¬ 
grammate laten aanroepen(zie afb.1) 

Maar ook dit is niet steeds mogelijk. 
Een voorbeeld hiervan is een spread¬ 
sheet (bv. LOTUS 1-2-3). Een derge¬ 
lijk programma verdeelt het beeld¬ 
scherm in verschillende velden, waar¬ 
tussen we bepaalde relaties kunnen 
definiëren. 

Een spreadsheet kan er bijvoorbeeld 
als volgt uitzien : 


A B C D 

1 getall 

2 getal2 

3 som <B1+B2> 

4 verschil <B1-B2> 

5 

6 

Als we nu een getal in veld BI invoe¬ 
ren, stel 5, en in B2 bijvoorbeeld het 
getal 6 plaatsen, dan komt in B3 de 
waarde 11 en in B4 de waarde -1 te 
staan : 

A B C D 

1 getall 5 

2 getal2 6 

3 som 11 

4 verschil -1 

5 

6 

De computer voert dus de in B3 en B4 
voorgeschreven bewerkingen uit op 
de getallen. 

Het is wel duidelijk dat die formules in¬ 
gegeven moeten worden terwijl het 
programma loopt. Dus moeten we de 
computer in staat stellen ze te onder¬ 
zoeken. 


INITIALISEER MAIN 


> 


afb.1 schematische voorstelling sub-programma 


hoofd 

programma 

(pre- 

compiled) 

...I 



compileer 
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Een voorbeeld 

Laten we eerst een vereenvoudigde 
versie van ons probleem bekijken: we 
gaan een programma schrijven dat 
een expressie ontleedt waarin de vier 
hoofdbewerkingen gebruikt mogen 
worden: 

4 " “ * / 

j J / • 

Beschouw het volgende voorbeeld : 

5 + 6 * 3 - 2 * (8-1) 

We zouden deze uitdrukking nu na¬ 
tuurlijk onmiddellijk kunnen evalue¬ 
ren, maar indien dit verschillende ke¬ 
ren moet gebeuren (wat het geval is 
als we een parameter gebruiken), 
kunnen we ze beter eerst onder een 
andere vorm schrijven: de inverse- 
poolse notatie, ook de ‘postfix-notatie’ 
genoemd. (Het is ook deze notatie die 
door HP-rekenmachines gebruikt 
wordt). In deze schrijfwijze wordt de 
bewerking achter zijn twee operandi 
geschreven. De uitdrukking "5 -h 6" 
wordt in de postfix-notatie dus als "5 6 
+" genoteerd. Bijgevolg dient ons 
voorbeeld als volgt herschreven te 
worden: 

5 6 3 * + 2 8 1 - * - 

Deze formule zegt ons nu dat we eerst 

6 met 3 moeten vermenigvuldigen, en 
dan dit resultaat bij 5 optellen. 

We noemen deze som SOM1. Vervol¬ 
gens berekenen we 8-1, vermenigvul¬ 
digen dit met 2, en trekken we dit af 
van SOM1. 

Maar, hoe slaan we deze formule nu 
op in een computer? Geen enkele 
programmeertaal laat ‘mixed typing’ 
toe, dit wil zeggen dat we geen getal¬ 
len en lettertekens in dezelfde data¬ 
structuur mogen opslaan. Een moge¬ 
lijke oplossing: stel iedere bewerking 
voor door een getal. Dit betekent ech¬ 
ter dat we niet langer alle cijfers als cij¬ 
fers zullen kunnen gebruiken. Dit is 
geen probleem wanneer we enkel po¬ 
sitieve getallen gebruiken, we kunnen 
dan de bewerkingen voorstellen door 
negatieve. 

Meestal zullen we echter ook getallen 
kleiner dan nul nodig hebben, en zul¬ 
len we verplicht zijn een andere oplos¬ 
sing te zoeken. Maar, niet getreurd, 
we moeten de oplossing niet zó ver 
gaan zoeken: gebruik gewoon twee 
stacks: één voor de getallen en één 
voor de bewerkingen. Maar nu weten 
we niet meer in welke volgorde de ele¬ 
menten komen, bijgevolg zullen we 


een derde stack (de next-stack) nodig 
hebben die aangeeft welk soort ele¬ 
ment we krijgen: een operator of een 
getal. Onze stack kan er dan als volgt 
uitzien: 

numbpointer= ^NUMBSTACK; 
operpointer = ^OPERSTACK; 
nextpointer = ''NEXTSTACK; 

numbstack = RECORD 

value : INTEGER; 
link : NUMBPOINTER; 

END (* numbstack *) 

Analoog voor OPERSTACK en 
NEXTSTACK. 

STACK = RECORD 

number : NUMBPOINTER; 
operator : OPERPOINTER; 
next : NEXTPOINTER; 

END (* stack *) 

Merk op dat we gebruik gemaakt heb¬ 
ben van dynamische variabelen. 

Een dynamische variabele is in feite 
een adres van een geheugenplaats 
waar een bepaalde variabele in is op¬ 
geslagen. Als samen met die variabe¬ 
le een wijzer (link) naar een volgend 
adres wordt gestockeerd, dan kunnen 
we een ‘ketting’ van variabelen vor¬ 
men. Dit is schematisch weergegeven 
in afb.2. 



afb.2 een ‘variabele ketting’ 


Zonder gebruik te maken van dynami¬ 
sche variabelen, kunnen we de stack 
als volgt definiëren: 

numbstack = array [1..30] of integer,- 
operstack = array [1..30] of operand,- 
nextstack = array [1..60] of possibility 

Nu we de datastructuren die nodig zijn 
voor de stack, ontworpen hebben, 
kunnen we ons toespitsen op het eva¬ 
lueren van onze expressie. Beschou¬ 
wen we ons voorbeeld: de stack ziet 
er als volgt uit: 

number operator next 

5 * number 

6 + operator 

3 - operator 

2 * number 

8 - number 

1 number 

operator 

operator 

operator 

Bemerk dat de eerste twee elementen 
steeds getallen moeten zijn, bijgevolg 
zijn ze niet vermeld in de next-stack. 
Om het algoritme te ontwerpen, zullen 
we ons in de plaats van de computer 
stellen: 

° eerst nemen we een getal uit de 
number-stack (x1). 

° het tweede element moet ook een 
getal zijn, dus haal het ook van de 
number-stack (x2). 

° naar gelang de next-stack, zal het 
volgende element een getal (a) of 
een bewerking (b) zijn. 

(a) een getal: 

evalueer de formule vanaf x2, d.w.z.: 
schuif x1 op een stack; 
plaats x2 in x1; 
doe de zelfde routine met de 
nieuwe x1, maar begin op (ii)} 
goto (iii) 

(b) een bewerking: 

noem de operator b; 
execute (x1, x2, b) 

Als we het algoritme simpel willen 
houden, maken we gebruik van recur- 
sie (een routine roept zichzelf aan),: 
we hoeven dan x1 niet meer op eeri 
stack te schuiven, daar hier automa- 


12 


Commodore INFO 1/88 






tisch voor gezorgd wordt door de com¬ 
piler. Opgelet; BASIC kan geen recur¬ 
sieve procedures verwerken. BASIC- 
programmeurs zullen dus een oplos¬ 
sing moeten zoeken om de recursie te 
omzeilen. De meer gestructureerde 
talen zoals PASCAL en C kunnen dit 
echter wel aan. Voor dit artikel heb ik 
gebruik gemaakt van PASCAL, maar 
het vertalen naar andere program¬ 
meertalen zou niet teveel problemen 
mogen geven. Ons programma (in 
pseudo-code) ziet er nu als volgt uit: 

(1) Main 

haal eerste getal (x1) van de num- 
ber-stack; 

WHILE er nog elementen zijn DO 
x1:=evaluate (x1) 

(bereken de cyclus vanaf x1en 
plaats het resultaat in x1) 

END. 


(2) FUNCTION evaluate (xl) 
BEGIN 

haal x2 van de number-stack; 

1 ihaal next van de next-stack; 
CASE next OF 
operator: b:= operator; 

evaluate:= execute (x1, x2, b); 
number: x2:= evaluate (x2); 
G0T01 

END. 

(3) de functie EXECUTE 
berekent de waarde van de 
bewerking 

x1 b x2 

bijvoorbeeld: 
x1 =2 
x2 = 3 
b = + 

=> execute (x1, x2, b) = 2 + 3 = 5. 


Parameters 

Natuurlijk is hiermee lang niet alles in 
orde: we moeten nog steeds een rou¬ 
tine schrijven om de originele uitdruk¬ 
king te vertalen naar de postfix-nota- 
tie. We zullen dit verderop behande¬ 
len. Laten we nu eens kijken hoe we 
onze opgave een beetje kunnen uit¬ 
breiden; we zullen ook een parameter 
toelaten. Dit betekent dat de computer 
nu drie zaken kan verwachten; een 
getal, een bewerking ofwel een para¬ 


meter. Zoiets kan redelijk eenvoudig 
opgevangen worden door de next- 
stack. 


(1) Main 

CASE next-stack OF 

number: haal eerste getal (x1) 
van de numberstack; 
parameter:x1 := value; 

END (* case *) 

WHILE er nog elementen zijn DO 
BEGIN 

haal ’next’ van de next-stack; 
x1 := evaluate (x1, next) 

END 

END. 

(2) FUNCTION evaluate 
(xl, next) 

BEGIN 

CASE next OF 
number:haal x2 van de 
number-stack; 
parameter:x2:= value; 

END (*case*) 

1 :haal ’next’ van de next-stack; 

CASE next OF 
operator: b:= operator; 
evaluate:= execute (x1, x2, b); 
parameter, 

number: x2:= evaluate 
(x2, next); 

GOTO 1 
END (* case *) 

END. 

Zoals u ziet is er niet veel veranderd. 
Merk echter wel op dat de eerste twee 
elementen van de ingegeven functie 
niet noodzakelijk getallen meer zijn: 
het kunnen ook parameters zijn. Bij¬ 
gevolg dienen ze nu wel opgenomen 
te worden in de next-stack. (Dit toont 
duidelijk aan dat het, met het oog op 
de uitbreidbaarheid van een program¬ 
ma, niet steeds verstandig is om te¬ 
veel speciale trucjes te gebruiken). 

Uitbreiding 

Als we nu naast de vier hoofdbewer¬ 
kingen, ook nog andere bewerkingen 
willen invoeren, dan kan dit door de 
functie ‘execute’ een beetje uit te brei¬ 
den. Het wordt echter moeilijker, als 
we ook functies als sinus en cosinus 
willen onderzoeken. Om te beginnen 
zullen we de next-stack weer moeten 


uitbreiden: hij moet ons nu ook infor¬ 
meren als er een functie aankomt. Die 
functies moeten ook opgeslagen wor¬ 
den, daarom is er de behoefte aan 
nog een stack: de functie-stack. In ons 
algoritme blijft het MAIN-gedeelte on¬ 
veranderd: het eerste element kan 
geen functie zijn. De module ‘evalua¬ 
te’ ziet er nu als volgt uit: 

(1) Main 

CASE next-stack OF 

number : haal x1 van de 
number-stack; 
parameter: x1 := value; 

END (* case *) 

WHILE er nog elementen zijn DO 
BEGIN 

haal ’next’ van de next-stack; 
x1 := evaluate (x1, next) 

END 

END. 

(2) FUNCTION evaluate 
(xl, next) 

BEGIN 

CASE next OF 
number: haal x2 van de 
number-stack; 
parameter: x2:= value; 
function: haal functie (f) van 
de function-stack; 
evaluate:= funcexec (f, x1); 

END (* case *) 

IF (nog niet klaar) and (next 
function) THEN 
REPEAT 

haal next van de next-stack; 
CASE next OF 
operator :b:= operator; 
evaluate:= execute (x1, x2, b); 
parameter, 

number:x2:= evaluate (x2, next); 
function:haal functie (f) van 
de stack; 

x2:= funcexec (f, x2); 

END (* case *) 

UNTIL next = operator; 

END. 

(3) FUNCEXEC retourneert 
het resultaat van f(xl) 

bv: 

f:= sin 
x1:=0 

geeft: sin (0) = 0 
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Enige uitleg is hier wel op zijn plaats. 
Zoals u al weet blijft de procedure 
MAIN onveranderd, FUNCEXEC is 
betrekkelijk eenvoudig, dus laat ons 
ons toespitsen op EVALUATE. Eerst 
wordt gekeken of ‘next’ een functie is, 
zo ja wordt het resultaat van die func¬ 
tie in x1 aan ‘evaluate’ toegewezen. 
De routine eindigt nu. Indien ‘next’ 
geen functie was (i.e. het was een ge¬ 
tal of een parameter), dan komen we 
in het tweede deel van onze routine, 
waar we nu de mogelijkheid beschou¬ 
wen dat we deze keer wel een functie 
zullen krijgen. Als dit het geval is, dan 
wordt deze door FUNCEXEC op de¬ 
zelfde manier ven/verkt als een bewer¬ 
king door EXECUTE. Het enige ver¬ 
schil is dat na een operator de routine 
stopt, maar na een functie niet. 

Laat ons dit alles illustreren aan de 
hand van volgend voorbeeld: we wil¬ 
len de onderstaande uitdrukking eva¬ 
lueren; 

INC(5) + 3*xmet x = 2. 

Eerst vertalen we dit naar de postfix- 
notatie: 

5INC3x* + 


Onze stack ziet er als volgt uit: 


Numb. 

Oper. 

Func. 

Next 

5 

« 

inc 

number 

3 

♦ 


function 

number 

parameter 

operator 

operator 


afb.3 

Nu roepen we de routine MAIN aan: 
Aangezien het eerste element een 
nummer is, wijzen we dit toe aan x1 : 

x1:=5. 

Er zijn nog elementen over (de next- 
stack is nog niet leeg), dus halen we 
‘next’ van de next-stack en roepen 
‘evaluate’ aan: 

x1 := evaluate (5, function). 


In EVALUATE gebeurt het volgende: 

‘Next’ is een functie, dus halen we f 
van de stack en roepen FUNCEXEC 
aan; 

f:= inc; 

evaluate:= funcexec (inc, 5) 

Hierdoor krijgt ‘evaluate’ de waarde 6. 

Aangezien ‘next’ een functie is, ein¬ 
digt de routine. 

daardoor krijgt x1 de waarde 6: 

x1:=6. 

Nu komen we aan het tweede deel 
van de MAIN-routine en aangezien er 
nog elementen over zijn, wordt het uit¬ 
gevoerd. ‘Next’ wordt nu: 

next:= number 

en we krijgen voor x1 : 

x1 := evaluate (6, number). 

Nogmaals roepen we EVALUATE 
aan: 

next = number 

=> haal x2 van de stack: 
x2:= 3. 

We zijn nog niet klaar (de next-stack 
is nog niet leeg), dus halen we ‘next’: 

next:= parameter 

Dit houdt in dat we nogmaals EVA¬ 
LUATE zullen moeten aanroepen. Let 
op: dit is een ‘recursieve aanroeping’. 

x2:= evaluate (3, parameter). 

In deze cyclus ziet EVALUATE er als 
volgt uit: 

x1 := 3 

next:= parameter 
=> x2:= value 
=> x2:=2 


We zijn nog steeds niet klaar, dus haal 
‘next’; 

next:= operator 
=> b:= times 

evaluate:= execute (3, 2, times) 
=> evaluate:= 6 

Aangezien ‘next’ een bewerking is, 
eindigt de routine. X2 wordt: 

x2:= 6. 

‘Next’ is geen operator, bijgevolg die¬ 
nen we de lus nogmaals te doorlopen; 

next:= operator 

=> b:= plus 

evaluate:= execute (6,6, plus) 
=> evaluate:=12 

N is ‘next’ een bewerking, dus eindigt 
de routine. Zo krijgt x1 de waarde: 

x1 :=12. 

En de next-stack is leeg, dit betekent 
dat we klaar zijn. 


Listings 

Dit alles zou u nu in staat moeten stel¬ 
len om uw eigen routines te schrijven, 
en bij wijze van voorbeeld heb ik er 
één bijgevoegd die gehele getallen 
(integers), parameters, de vier hoofd¬ 
bewerkingen en de functies INC en 
DEC kan verwerken (listing 1). Op het 
eerste gezicht is deze routine erg lang 
uitgevallen, doch dit komt voorname¬ 
lijk doordat er uitvoerig gebruik ge¬ 
maakt is van witte ruimtes en proce¬ 
dures. Dit vergroot de leesbaarheid 
aanzienlijk. De TYPE-definities nodig 
voor deze en de volgende routine be¬ 
vinden zich in listing 2. 

In het volgende nummer zal Peter 
Heinckens verder ingaan op het om¬ 
zetten van formules van infix- naar 
postfix-notatie. 
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LISTING 1: Pascal equivalent van het algoritme EVALUATE 

FUNCTION evaluate ( 

stack : POLISH; 
value : INTEGER) : 

INTEGER; 

(» 

EVALUATE 1.2 

4 april 

1987 

Auteur : 

Peter Heinckiens 


Doel : 

Deze module berekent de waarde van de mathematische 
uitdrukking in de stack. Alle getallen moeten van 
het type INTEGER zijn. De volgende bewerkingen zijn 


toegelaten : +, 

», div. De functies INC en DEC 


zijn ook opgenomen. 

Het gebruik van een parameter 


i.p.v. een getal is 

toegelaten. 

Aanroeping : 

y := evaluate (stack, value) 

met : stack van het 

type POLISH 


POLISH = RECORD 


FUNCTION getnumber : INTEGER; 

numb : 

NUMBPOINTER 

VAR reserve : NUMBPOINTER; 

oper : 

OPERPOINTER 

BEGIN 

f unc : 

FUNCPOINTER 

getnumber := stack.numb".value; 

next ; 

NEXTPOINTER 

reserve := stack.numb; 

END 


stack.numb := stack.numb".1ink; 

END; 

numb : wijst naar de 

getallen. 


oper : wijst naar de 

bewerkingen : 

FUNCTION getfunc : FUNCTIONS; 

VAR reserve : FUNCPOINTER; 

plus 


BEGIN 

minus 


getfunc := stack.func".value; 

timea 


reserve := stack.func; 

slash 


stack.func := stack.func".link; 

END; 

func : wijst naar de 

functies : 


inc 


FUNCTION getnext : KIND; 

dec 


VAR reserve : NEXTPOINTER; 

BEGIN 

next : bepaalt het soort element : 

getnext := stack.next".value; 



reserve := stack.next; 

operator 


stack.next := stack.next".1ink; 

number 


END; 

parameter 

functie 


FUNCTION not ready : BOOLEAN; 

'value' is de waarde 

van de parameter. 

BEGIN 

not_ready := stack.next O nil 

END; 



FUNCTION calculate < xl : INTEGER; 



element : KIND ) : INTEGER; 

VAR xl : INTEGER; 


element : KIND; 


VAR x2 : INTEGER; 



b : SYMBOL; 

f : FUNCTIONS; 

FUNCTION getoperator 

: SYMBOL; 


VAR reserve : OPERPOINTER; 


BEGIN 



getoperator := stack.opervalue; 
reserve := stack.oper; 

stack.oper := stack.oper1Ink ; 


END; 
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FUNCTION execute <xl, x2 : INTEGER; 

b : SYMBOL ) : INTEGER; 

BEGIN 

CASE b OF 


plus 

: execute 

: = xl 

+ x2; 

minus 

: execute 

: = xl 

- x2; 

times 

: execute 

: = xl 

* x2; 

slash 

: execute 

II 

X 

div x2; 


END; (» case ») 
END; 


FUNCTION funcexec <f : FUNCTIONS; 

X : INTEGER ) : INTEGER; 

BEGIN 

CASE f OF 


inc : funcexec := x+1; 
dec : funcexec := x-1; 

END; (» case ») 

END; 


C» calulate *) 
BEGIN 

CASE element OF 


number : 

x2 : = 

parameter : 

x2 : = 

functie : 

BEGIN 


END; 


getnumber; 
value; 

f := getfunc; 
xl := funcexec <f, 
calculate := xl; 


xl) ; 


END; <» case ») 


J6 
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IF not_ready and 

(element 

o functie) THEN 

REPEAT 

element := getnext; 


CASE element 

OF 


operator : 

BEGIN 

END; 

b := getoperator; 

calculate := execute (xl, x2, b) 

number, 

parameter : 

BEGIN 

END; 

x2 := calculate (x2, element); 

functie : 

BEGIN 

END; 

f := getfunc; 

x2 := funcexec (f, x2); 

END; (» case 

*) 


UNTIL element = 

operator 

7 


END; 


(» evaluate *) 

BEGIN 

CASE getnext OF 

number : xl := getnumber; 

parameter : xl := value; 

END; <» case *) 

WHILE not_ready DO 

BEGIN 

element := getnext; 
xl := calculate (xl, element); 
END; 

evaluate := xl; 

END; 
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LISTING 2: TYPE-definities nodig voor de twee procedures 

(* 

Type-definitiea 

nodig voor 

de modules 'reverse_polish' en 'evaluate'. 

») 




TYPE kind 


(operand, number, parameter, functie); 

Symbol 

= 

(plus. 

mlnus^ times, slash); 

f unctions 

s: 

(inc, dec); 

numbpointer 

= 

'"numbstack ; 

operpointer 

= 

^operstack; 

funcpointer 

= 

'"funcstack; 

nextpointer 

= 

^nextstack; 

polish 


RECORD 




numb 

: NUMBPOINTER; 



oper 

: OPERPOINTER; 



f unc 

: FUNCPOINTER; 



next 

: NEXTPOINTER; 



END; 


numbstack 

= 

RECORD 




value 

: INTEGER; 



link 

: NUMBPOINTER; 



END; 


operstack 

= 

RECORD 




value 

; SYMBOL; 



link 

: OPERPOINTER; 



END; 


funcstack 

= 

RECORD 




value 

: FUNCTIONS; 



link 

: FUNCPOINTER; 



END; 


nextstack 

= 

RECORD 




value 

: KIND; 



link 

: NEXTPOINTER; 



END; 


formula_type 

s: 

STRING 

C 60 ] ; 


de MicroDrukker 


Textshop/ desktop puhlishing center 

Roelof Hartstraat 27, Amsterdam 020-644659 
Bespaar honderden guldens op zetkosten voor briefpapier, fakturen etc. 

Pluk de vruchten van de DTP techniek, beste! nu een complete set originelen voor uw zakelijk 
briefpapier, vervolgblad, factuur, aanmaning en declaratie-formulier. De complete set originelen, 
die u zo naar de (snel)-drukker of copyshop kunt brengen, kost u slechts f 100,- incl BTW. 

Bel op voor een voorbeeld, geef dan uw gegevens op, de hele set komt per post bij u binnen. 
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NIEUWS 


Skyfox II 

Hevige ruimtegevechten vinden 
plaats in deze tweede versie van Sky¬ 
fox. Deze versie heeft een nieuw ver¬ 
haal, betere grafische animatie, snel¬ 
lere aktie en het vliegen is sensatione¬ 
ler. De aktie vindt plaats in de uithoe¬ 
ken van het universum, waar de strij¬ 
ders van de Federatie het opnemen 
tegen de Xenomorphs. 

Als speler ben je Federatie-piloot en je 
hebt de beschikking over een geavan¬ 
ceerd Skyfox II gevechtsvliegtuig.Het 
spel kent verschillende behendig- 
heidsniveaus en tien mogelijke ge- 
vechtssituaties. De Skyfox II beschikt 
over een modern wapenarsenaal, zo¬ 
als neutronenstralen, Photonbommen 
en anti-materie mijnen. De speler kan 
sneller dan het licht vliegen door ge¬ 
bruik te maken van wormgaten, dat 
zijn bijprodukten van zwarte gaten. 

Inl: Electronic Arts, tel. Engeland 0753 
49442 


Epyx 

De Amerikaanse software ontwikke¬ 
laar Epyx komt met drie spelletjes op 
de markt. 

Street Sports Basketball onder¬ 
scheidt zich van andere basketbal¬ 
spellen doordat de speler het speel¬ 
veld zelf kan kiezen: schoolplein, 
steeg, achtertuin of parkeerplaats. Elk 
veld heeft z’n voor- en nadelen. Ook 
kun je kiezen of je tegen de computer 
of een andere speler speelt. Vervol¬ 
gens moet je je team samenstellen, 
waarbij je de keuze hebt uit tien spe¬ 
lers, elk met z’n eigenaardigheden. 
Zoals Ralph, snel en lenig, maar hij 
draagt altijd een pet die soms over z’n 
ogen glijdt, juist als hij een meester- 
schot wil afvuren. De spelers worden 
bewogen door middel van de joystick. 
Het tweede spel is Arctic AnticsiSpy 
VS Spy III, waarbij de spelers ge¬ 
strand zijn op een ijsberg. Een dode¬ 
lijke sneeuwstorm is op komst! Er is 
maar een uitweg en ze moeten alles in 
het werk stellen om in de vluchtraket 
te komen. Op de ijsberg worden ze 
dwars gezeten door een vijandelijke 
spion en de barre natuurlijke omstan¬ 
digheden maken de vlucht gevaarlijk. 
Ze moeten dun ijs, diepe sneeuw en 
lange ijspegels ontwijken.De spelers 
hebben wel een aantal hulpmiddelen, 
zoals zagen, dynamiet, pikhouwelen 
en ontstekers. Met de spion moet nog 
een robbertje gevochten worden voor¬ 


dat de raket afgevuurd kan worden. 
Het derde spel is een variatie op de 
bekende grotten- en spelonkenspel¬ 
len. Boulder Dash Construction Kit 
biedt echter meer. Met de Construc¬ 
tion Kit kun je namelijk zelf de spellen 
vorm geven. Je kunt ze, door het toe¬ 
voegen van allerlei elementen, zo 
lang en moeilijk maken als je maar 
wilt. Rotsen, groeiende muren en 
enge beesten kun je invoeren. Doel 
van het spel is om zo veel mogelijk 
diamanten te verzamelen, die in de 
grotten verstopt zijn. Inl: Epyx, tel 
V.S.(415)366-0606 

Per 1 december jl. heeft Electronic 
Arts de Europese distributie van Mar- 
tech software op zich genomen. Mar- 
tech is vooral bekend door spellen als 
Nigel Mansell’s Grand Prix, Catch 23, 
Slaine en Mega-Apocalypse.ini: Elec¬ 
tronic Arts, tel. Engeland 0753 49442 


Easy Working 

Spinnaker Software in de VS heeft 
drie Easy Working programma’s voor 
o.a. de Commodore 64/128 op de 
markt gebracht voor rond de tien dol¬ 
lar per stuk. De programma’s zijn The 
writer’, The Filer’ en The Planner’. Ze 
kunnen in combinatie met elkaar ge¬ 
bruikt worden. De programma’s wer¬ 
ken met drop-down menu’s. Elk be¬ 
schikbaar commando wordt in het 
menu weergegeven. ’The writer’ heeft 
de meest gangbare tekstverwerkings- 
opties. The Filer’ maakt het opslaan. 


selekteren en opvragen van informa¬ 
tie eenvoudig. Het is geschikt voor on¬ 
der meer mailing lists, inventarissen, 
lidmaatschapslijsten. ’The Planner’ is 
een spreadsheet en is te gebruiken 
voor bijvoorbeeld budgettering, finan¬ 
ciële administratie en belastingbere¬ 
kening. 

Dezelfde firma brengt een ‘7 in 1 ’ soft¬ 
warepakket uit. Het pakket bevat een 
desktop organizer, outliner, wordpro¬ 
cessor, spreadsheet met Lotus 1 - 2-3 
export en import, database, business 
graphics en Communications. Alle ze¬ 
ven toepassingen gebruiken eikaars 
gegevensbestanden. U kunt zo bij¬ 
voorbeeld met de spreadsheet cijfers 
uit de data base analyseren, de gege¬ 
vens grafisch weergeven en in een 
brief verwerken. De prijs van het pak¬ 
ket ligt rond de 65 dollar. Inl: Spinna¬ 
ker Software tel: U.S.A. (617)494- 
1200 


Not a penny more! 

Domark brengt een computerspel uit 
van het boek Not a penny more, not a 
penny less! Het is een verhaal van in¬ 
ternationale fraude en intriges. De 
hoofdpersoon verliest een groot deel 
van z’n in aandelen belegde fortuin 
aan een oplichter. De aandelen blijken 
waardeloos en hij zint op wraak. Sa¬ 
men met andere bedrogen investeer¬ 
ders ontwikkelt hij een plan om het 
geld terug te krijgen. Een vernuftig 
web van intriges wordt gesponnen 
rond de oplichter. In de computerver- 
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sie van het boek is de speler de hoofd¬ 
persoon. Je moet het team van ama- 
teur-oplichters samenstellen en een 
serie van trucs en oplichterijen af>wik- 
kelen voordat het verloren geld terug 
is. Het leuke van dit spel is dat het sce¬ 
nario van het boek nauwkeurig ge¬ 
volgd wordt. Op de talloze lokaties die 
je in het spel aandoet liggen puzzles 
die je eerst moet oplossen voor je ver¬ 
der kunt. Het pakket bevat het spel, in- 
strukties en een kopie van het origine¬ 
le boek. 

Inl: Domark, tel. Engeland 01-947 
5622. 


Tetris 

Een simpel spel van Mirrorsoft, maar 
je schijnt er behoorlijk aan verslaafd te 
kunnen raken. Een serie verschillen¬ 
de vormen verschijnt bovenaan het 
scherm. Met behulp van het keyboard 
of de joystick moet je die vormen zo 
manipuleren, dat ze aan de onderkant 
van het scherm tot lijnen samenge¬ 
voegd worden. Hoe sneller je de lijnen 
kunt maken, hoe sneller de vormen 
verschijnen. Verkrijgbaar voor o.a. 
Commodore 64/128 (tape en disk) en 
voor Amiga. 

inl:MirrorSoft, tel. Engeland 01-377 
4837 


Strike fleet 

Een aktueel spel is Strike fleet van 
Electronic Arts. Het is een simulatie 
van zeegevechten waarbij zowel stra¬ 
tegie als harde aktie om de hoek ko¬ 
men kijken. Als commandant van een 


oorlogsvloot, uitgerust met moderne 
wapens, moet je tien gevaarlijke op¬ 
drachten uitvoeren. Zo moet je bij¬ 
voorbeeld alle neutrale schepen in de 
Perzische Golf verdedigen en super¬ 
tankers escorteren.Ook zijn enkele 
Wereld Oorlog lil scenario’s opgeno¬ 
men. Je kunt een scenario per keer 
nemen, of meerdere tegelijk en ook 
kun je de grootte en uitrusting van de 
vloot kiezen. Het doel is om alle op¬ 
drachten uit te voeren met zo min mo¬ 
gelijk verlies van bemanning en mate¬ 
rieel. Als je daarin slaagt, ontloop je 
een militair tribunaal en wordt je be¬ 
vorderd. Inl: Electronic Arts, tel. Enge¬ 
land 0753 49442 

Andy Capp 

Ook van Mirrorsoft komt Andy Capp, 
bij ons beter bekend als Linke Loetje. 
Het is vrijdagavond en de cheque van 
Andy’s uitkering wordt vermist. Hoe 
kun je uitvinden wie hem achterover 
gedrukt heeft? Om daarvoor de juiste 
informatie van vrienden en kennissen 
te krijgen moet Andy ze paaien. En dat 
is juist niet zijn sterkste punt. Dus 
Andy heeft geen andere keus dan z’n 
laatste geld bij de paardenraces te 
vergokken, hopend op een winnend 
lot. In het spel kun je alle bekende 
overlevingstechnieken van Andy toe¬ 
passen: vechten met de bookkeeper, 
de huisbaas een klap verkopen, bede¬ 
len bij de barkeeper, de portemonnee 
van je vrouw achterover drukken etc. 
Inl: Mirrorsoft, tel. Engeland 01-377 
4837 


Stifflip 

Een oer-engelse vlieger in WO-1 outfit 
met monocle, diverse kartoonachtige 
personages, een comic-book game en 
een slechte oom vormen de ingre¬ 
diënten van Binary Visions Stifflip. 
Graaf Stifflip is de held in dit jongens- 
boek-adventure. De heldenda-den 
worden in een bananenrepubliek ver¬ 
richt. Kortom de ware sfeer van een 
comic book. 

De plaatjes zijn in kartoonstijl gete¬ 
kend. In het midden van het scherm 
speelt de feitelijke actie zich af. Links 
staan de actiemogelijkheden (Chin- 
wag, Fisticuff, Beetle-off, State of play 
en Change Batter) en rechts de be¬ 
schikbare personages (Colonel R.G. 
Bargie, Professor Braindeath en miss 
Palmyra Primbottom) per spelpagina. 
De speler bestuurt het spel door links 
en rechts het gewenste ikoon te kie¬ 
zen. Alle vier karakters spelen hun ei¬ 
gen bestuurbare rol in dit game. 

Graaf Stifflip blijft altijd onverstoorbaar 
en hyper(engels)- beleefd. Kreten als 
"Now look here my good man" of "Nice 
bar you have here" verschijnen in ge¬ 
paste tekstballonnen. Helaas haalt be¬ 
leefdheid bij vijanden weinig uit en is 
het knokken geblazen voor de brave 
Stifflip. Gelukkig is ook het knokken 
overgoten met een sausje van echte 
onvervalste droge humor. Natuurlijk 
moet het vechten via de gentleregels 
gaan. De enige arcade-actie van Stif- 
flipt verloopt via "Bif!" (Fisticuff) waar¬ 
bij de speler een ikoon op een roterend 
doel dient te plaatsen en vervolgens 
op de vuurknop van de joystick drukt. 
Slagen onder de gordel brengen in 
deze gentlemans agreement boks-ar- 
cades minder punten op als het sport¬ 
ieve boven de gordel meppen. 

Het verhaal doet er eigenlijk niet zo 
toe. Flet is voornamelijk sfeerteke- 
nend. In de roaring twenties wordt het 
Britse wereldrijk bedreigd door de sno¬ 
de graaf Chamaleon. Deze schurk 
treedt alle herenregels met voeten en 
heeft een "Rubbertronic Ray" ontwik¬ 
keld waarmee hij, oh dearl, snorre- 
baarden slap maakt, stijve boorden 
naar hun grootje helpt en cricketballen 
kan afbuigen. Een echte ramp dus. In 
vier avonturen moet Sebastiaan Stifflip 
dit zaakje in de bananenrepubliek kla¬ 
ren. Zoals gezegd kunnen naast Stiflip 
ook de andere figuren gebruikt wor¬ 
den. verder zal de avonturier nog tal 
van kleurrijke personages ontmoeten. 
Stifflip moet het voornamelijk van de 
humoristische sfeer hebben. 



Strikefleet 
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LOGO is een echte programmeertaal die vooral voor het gebruik in het onderwijs ont¬ 
worpen. In mei 1987 introduceerde de Stichting LOGOgroep Nijmegen een Nederland¬ 
se LOGO voor de Commodore 64; inmiddels is er ook een MS-DOS versie. 


LCN LOGO 


Een Nederlandse LOGO 

H et nederlandse LOGO is met name bedoeld om leerlingen van het voort¬ 
gezet onderwijs, maar ook de hoogste groepen van het basisonderwijs 
‘zelfontdekkend’ te laten leren. Centraal hierbij staan hierbij doorgaans de 
spektakulaire grafische mogelijkheden van LOGO en het manipuleren van 
objecten, de sproken, zgn. ‘schildpaddenklonen’.ln dit artikel besteden we 
aandacht aan een aantal deze en andere typerende kenmerken van deze Ne¬ 
derlandse LOGO. LCN-LOGO wijkt in sommige opzichten namelijk nogal af 
van conventionele LOGO’S. 


'Leren met LOGO’ was de titel van 
een onlangs aan de Katholieke Uni- 
versiteit Nijmegen gehouden konfe- 
rentie. Wat kinderen precies leren van 
LOGO bleek niet zo eenvoudig vast te 
stellen. Uit met name Amerikaans on¬ 
derzoek blijkt dat kinderen die langere 
tijd met LOGO werken vaardigheden 
ontwikkelen die te maken hebben met 
het analyseren en planmatig aanpak¬ 
ken van taken. In vergelijking met leef¬ 
tijdgenootjes gaan ze bij het oplossen 
van problemen systematischer en 
doelmatiger te werk. Daarnaast geven 
hun wiskundige en ruimtelijke inzich¬ 
ten vaak een forse voorsprong te zien. 
In Nederland werd LOGO vijf jaar ge¬ 
leden geïntroduceerd door het LOGO 
Centrum Nederland, een initiatief van 
de Stichting LOGOgroep Nijmegen. In 
de Verenigde Staten was toen reeds 
sprake van een ware rage. Een be¬ 
paalde LOGO-versie werd daar zelfs 
tot tweemaal toe uitgeroepen tot beste 
edukatieve software van het jaar. Hier 
in Nederland ging het er allemaal iets 
rustiger aan toe. Weliswaar ging een 
aantal scholen LOGO gebruiken, de 
meeste bleven toch de leerlingen las¬ 
tig vallen met het traditionele BASIC. 
Pas bij het beschikbaar komen van 
Nederlandstalige versies (vooral voor 


de MSX en Commodore) werd LOGO 
meer en meer een normaal verschijn¬ 
sel op school, i.p.v. BASIC. Sedert 
kort bestaat er een heuse Nederland¬ 
se LOGO. 


LCN LOGO 

De LCN-LOGO is een geheel Neder¬ 
lands produkt en komt uit Nijmegen. 
Het heeft enige jaren geduurd voordat 
het produkt verkoopgereed was. Dat 
lag hem voornamelijk in het feit dat in 
eerste instantie gemikt werd op een 
Commodore-versie. 

De Commodore is nooit het voorbeeld 
geweest van een fraaie inwendige ar¬ 
chitectuur, en daarom duurde het pro¬ 
ject veel langer dan gepland. Boven¬ 
dien moest de LCN-LOGO zoveel in 
zich hebben dat de geheugenruimte 
van de Commodore dit allemaal niet 
aankon. Vandaar dat de Commodore- 
versie is ondergebracht in een in- 
steekmodule. Het aantal PC’s op 
scholen nam zo toe dat onmiddellijk 
werd begonnen met een MS-DOS- 
versie. Een nadeel hierbij is dat men 
voor LCN LOGO een CGA- of EGA- 
kaart nodig heeft: met een Hercules- 
kaart werkt het systeem niet. Voor 
machines die voldoen aan de NIVO- 



specifikaties is er dus geen vuiltje aan 
de lucht. Dankzij het bijgeleverde op- 
tie-file kan er zowel monochroom als 
in kleur gewerkt worden. Een ander 
nadeel t.o.v. de Commodore-versie is 
dat er geen mogelijkheden voor spro¬ 
ken zijn. Maar het produkt is dermate 
fraai geworden dat de nadelen niet 
opwegen tegen alle voordelen die 
LCN-LOGO biedt. 


Menu’s en schermen 
Wat bij het starten van LCN LOGO 
meteen al opvalt is dat het beeld¬ 
scherm in delen is opgesplitst. Het bo¬ 
venste deel van het scherm is gere¬ 
serveerd voor de editor, en het mid¬ 
delste deel voor tekst-uitvoer. De po¬ 
sitie van de grens tussen de beide 
schermpjes is instelbaar. Helemaal 
onderaan bevindt zich één (gekleur¬ 
de) regel die gebruikt wordt voor sys¬ 
teem- en foutmeldingen, en die daar¬ 
om statusbalk genoemd wordt. Met 
een druk op de knop kan de gebruiker 
switchen naar het grafisch scherm, 
waarbij zich in het midden de beken¬ 
de schildpad bevindt. 

Een groot aantal handelingen verloopt 
op een menu-gestuurde manier. Via 
een funktietoets komt men terecht in 
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een overzichtelijk hoofdmenu. Men 
kan hier kiezen uit de opties ‘LEZEN’ 
(voor het inlezen van programma’s of 
afbeeldingen), "SCHRIJVEN" (voor 
het bewaren of printen van program¬ 
ma’s en afbeeldingen), ‘DOS’ (voor de 
kommunikatie met MS-DOS), ‘HULP’ 
en ‘STOPPEN’. Kiest men ‘HULP’, 
dan komt men terecht in een ‘hulp- 
hoofdmenu’, van waaruit men aller¬ 
hande informatie kan opvragen over 
het gebruik van het systeem (over de 
kommandotoetsen bijvoorbeeld). Op 
zich is een dergelijke hulpfaciliteit 
niets bijzonders. Bij LCN LOGO be¬ 
vindt de inhoud van de hulpwindows 
zich echter in aparte bestanden die 
door de gebruiker naar believen kun¬ 
nen worden aangepast en uitgebreid. 
Voor docenten biedt dit bijv. de moge¬ 
lijkheid eigen LOGO-programma’s te 
voorzien van makkelijk op te roepen 
kommentaar, uitleg en aanwijzingen. 
Zo’n programma hoeft overigens niet 
voor de leerling zichtbaar te zijn: men 
kan het beschermd wegschrijven. Het 
is dan weliswaar door derden te ge¬ 
bruiken, maar de tekst ervan is on¬ 
zichtbaar. 


Directe en indirecte modus 

In bijna alle LOGO-versies bestaat er 
een duidelijk verschii tussen de kom- 
mando-toestand en de editor-toe- 
stand. In de kommando-toestand wor¬ 
den de opdrachten die de gebruiker 
intypt onmiddellijk uitgevoerd na <RE- 
TURN>. Men spreekt ook wel van 'di¬ 
recte modus’. In de edit-toestand wor¬ 
den opdrachten na <RETURN> niet 
meteen uitgevoerd, maar wordt er ge¬ 
wacht tot men op een speciale toets 
drukt, waarna alle opdrachten in de 
editor worden uitgevoerd. Op deze 
manier kan men procedures maken. 

In LCN LOGO bestaat het onder¬ 
scheid tussen directe en indirecte mo¬ 
dus niet. Deze LOGO kent alleen een 
editor-toestand. Door de cursor als 
aanwijsinstrument te gebruiken kan 
men de betreffende opdrachten uit la¬ 
ten voeren. Men hoeft hiervoor de edi¬ 
tor niet te verlaten. De LCN LOGO 
editor kombineert dus de voordelen 
van de kommando- en editor-toe¬ 
stand. Kommuniceren met LCN LO¬ 
GO geschiedt uitsluitend via de editor. 

De editor 

Als elke taal heeft LOGO een eigen 
struktuur. Bij een ALS-opdracht hoort 
bijvoorbeeld altijd een DAN-gedeelte, 


enz. Deze struktuur wordt niet onder¬ 
steund door een konventionele 
LOGO-editor. Desondanks is ook 
daar sprake van een zekere struktuur. 
Maar deze behelst niet veel meer dan 
die welke men tegenkomt bij tekstver¬ 
werkers: woorden vormen zinnen en 
zinnen vormen paragrafen. Met ande¬ 
re woorden: conventionele versies 
van de taal zijn regel-georiënteerd. 
Omdat een traditionele LOGO-editor 
de syntax van de taal niet onder¬ 
steunt, is het soms noodzakelijk om 
extra informatie toe te voegen. Deze 
bestaat bijvoorbeeld uit het plaatsen 
van haakjes om aan te geven wat bij 
wat hoort, of het toevoegen van bij¬ 
zondere leestekens om aan te geven 
dat een bepaald woord een speciale 
betekenis heeft. Door deze noodzaak 
om extra informatie toe te voegen 
wordt de (vaak jonge) beginner niet 
zelden tot wanhoop gedreven. Wan¬ 
neer de haakjes bijvoorbeeld ontbre¬ 
ken is de tekst vaak ambigu en wordt 
er een foutmelding gegeven of ge¬ 
beurt er iets onverwachts. 

De makers van LCN LOGO hebben 
daar iets op bedacht. Deze LOGO 
heeft slechts één syntax- of struktuur- 
regel, en die wordt konsequent volge¬ 
houden. In LCN LOGO wordt namelijk 
de prefix-notatie gehanteerd, d.w.z. 
eerst schrijven we de naam van de op¬ 
dracht (de naam van het "primitief" in 
LOGOjargon), pas dan volgen de 
eventuele argumenten. Is er sprake 
van meerdere argumenten, dan wor¬ 
den die zonder uitzondering onder el¬ 
kaar geplaatst. 

In de afbeelding is aangegeven hoe 
de gebruiker zo’n opdracht intypt. De 
editor helpt hem daarbij door de cur¬ 
sor na <RETURN> niet naar het begin 
van de regel te sturen, maar naar de 
positie precies onder het eerste argu¬ 
ment (t.w. de plaats waar het tweede 
argument thuis hoort). 

De afbeelding boven aan de pagina 
laat zien dat er in dit voorbeeld drie 


"vlakken" zijn: plus met zijn beide ar¬ 
gumenten is een vlak. Maar die argu¬ 
menten zijn zelf k weer vlakken. Deze 
vlakken worden zichtbaar wanneer 
men met de cursortoetsen door de 
tekst loopt. Daardoor is vooral bij gro¬ 
tere, samengestelde opdrachten de 
struktuur goed te doorzien. 



plus 

3 

4 



Suh-vlakken 


In LCN LOGO kan zo’n vlak worden 
geëvalueerd ("gerund"). Dit geschiedt 
door met de cursortoetsen naar het 
betreffende vlak te gaan (het vlak 
kleurt nu groen), en de evaluatietoets 
in te drukken. De inhoud van het vlak 
wordt dan gevalueerd, en het resul¬ 
taat wordt afgedrukt op het tekst¬ 
scherm (is er sprake van grafische uit¬ 
voer, dan verschijnt die uiteraard op 
het grafisch scherm). 


Werken met vlakken 
Programmeren in LCN LOGO komt 
neer op het werken met vlakken. 
Daarom bestaat er een hele reeks van 
editorkommando's waarmee de ge¬ 
bruiker vlakken kan weghalen, invoe¬ 
gen, kopiëren en verplaatsen. Deze 
LOGO-editor is dus zeker geen gewo¬ 
ne BASIC-achtige teksteditor; het is 
een krachtig instrument dat de layout 
en de syntax van LCN LOGO onder¬ 
steunt. 

Met het oog op het foutvrij maken van 
programma’s ("debuggen") beschikt 
LCN LOGO over een zg. stepper. Dat 
is een editor-hulpmiddel waarmee 
men de volgorde waarin vlakken wor¬ 
den geëvalueerd zichtbaar kan ma¬ 
ken: men kan het verloop van een pro- 
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gramma volgen doordat de vlakken 
die door de Interpreter worden ver¬ 
werkt stap voor stap wit kleuren. Daar¬ 
naast biedt de editor de mogelijkheid 
om woorden in de programmatekst op 
te zoeken en te veranderen. Een der¬ 
gelijke zoekfaciliteit is, zeker wanneer 
er sprake is van grotere programma’s, 
onontbeerlijk. 

In- en uitvoer met objekten 

Onder in- en uitvoer verstaan we alle 
handelingen die betrekking hebben 
op randapparaten, zoals de diskdrive, 
de printer, of de plotter: maar ook het 
beeldscherm noemen we een randap- 
paraat. Omdat het scherm voor grafi¬ 
sche uitvoer en voor tekstuitvoer ge¬ 
bruikt kan worden, spreken we zelfs 
van twee apparaten. Traditioneel 
wordt in een LOGO voorzien in een 
groot aantal primitieve kommando’s 
voor in- en uitvoer van en naar de 
randapparaten. Zo kennen we laad, 
bewaar, en inhoud voor de disk: druk. 



Steeds meer zien we computers in de 
leslokalen verschijnen. 


typ en drukaf voor het tekstscherm en 
een systeem van kanalen om met de 
printer te kunnen werken en, last but 
not least, alle schildpadkommando’s 
om uitvoer op het grafisch scherm te 
verkrijgen. Niet zelden wordt deze 
groep uitgebreid met allerlei gespe¬ 
cialiseerde kommando’s, om bijvoor¬ 
beeld een scherm te wissen (veeguit, 
maakschoon) of een diskfile te verwij¬ 
deren (fileweg), om schermen te kleu¬ 
ren (kleurscherm), enzovoort. 

Hoewel de namen en de konventies 
die het gebruik van deze kommando’s 
regelen van randapparaat tot randap- 
paraat verschillen, zijn de basisideeën 
achter In- en uitvoer voor elk apparaat 
gelijk. In geavanceerde besturings¬ 
systemen zoals UNIX wordt die een¬ 
voud benadrukt. 

Zo ook in LCN LOGO. Echter, waar in 
UNIX het koncept van de filepointer 
centraal staat, is dat in LCN LOGO - 
hoe kan het anders- de schildpad. 
LOGO Is beroemd om zijn schildpad. 


ontegenzeggelijk een van Paperts 
meest sterke ideeën. Dit object to 
think with kombineert begrijpelijkheid 
met een verrassend groot potentiel 
aan mogelijke aktiviteiten waarvan 
menigeen die kinderen met LOGO 
heeft zien werken onder de indruk is 
gekomen. De schildpad is in feite de 
softwarematige representant van de 
robot, de turtoise (Amerikaans: turtle), 
die vanuit het toetsenbord bestuurd 
kon worden. Het blijkt echter dat de 
schildpad voor meerdere karretjes ge¬ 
spannen kan worden.In LCN LOGO 
hoort bij elk randapparaat een schild- 
pad-achtig objekt. Zoals de grafische 
schildpad, kan elk van deze objekten 
zich verplaatsen. Echter, waar de gra¬ 
fische schildpad zich voortbeweegt 
over het (grafisch) beeldscherm, be¬ 
weegt de disk-schlldpad (kortweg: 
disk) zich over een floppy; beweegt de 
printer-schildpad (de printer) zich over 
het papier; en beweegt de cursor- 
schildpad (de cursor) zich over het 
tekstscherm. 

Met al deze schildpadden is het niet 
op voorhand duidelijk voor wie een 
opdracht als vooruit 20 bedoeld is. De 
volgende voorbeelden maken duide¬ 
lijk hoe deze verwarring voorkomen 
wordt: 


ZEG 

schildpad 


vooruit 20 

ZEG 

cursor 


vooruit 20 

ZEG 

disk 


vooruit 20 


Elke schildpad (kortweg: elk objekt) 
wordt aangesproken als we het een 
opdracht willen laten uitvoeren. De 
namen van de opdrachten zijn telkens 
hetzelfde: in kombinatie met een ob¬ 
jekt geven ze een ander resultaat. Om 
de flexibiliteit van dit soort van in- en 
uitvoer weer te geven, geven we een 
paar voorbeelden: 

ZEG printer 

schrijf "[het is vandaag 
een mooie dag 
ZEG disk 

schrijf "[het is vandaag 
een mooie dag] 

In het eerste geval verschijnt het zin¬ 
netje op het printerpapier: in het twee¬ 
de geval wordt het in een file geschre¬ 
ven (een floppy is opgedeeld in files: 
de disk beweegt van file naar file 
m.b.v. de opdracht: ‘naar "file’ waar 
‘file’ een filenaam is). 


ZEG disk 

naar "mijnteksten 
lees lijst 

Deze opdracht levert de eerste lijst in 
de file ‘mijnteksten’ op. De disk is ech¬ 
ter zekerniet het enige objekt dat kan 
lezen: 

ZEG cursor 

lees lijst 

zorgt ervoor dat de cursor over het 
tekstscherm beweegt tot hij een lijst 
tegenkomt. Die lijst wordt gelezen. 
Deze leesvaardigheid van de cursor 
maakt het ontwerpen van scherm-me- 
nu’s bijzonder eenvoudig. 

ZEG printer 

schrijf ZEG disk 
lees lijst 

Deze opdracht zorgt voor een ‘hard 
copy’ van een deel van een diskfile. 
De speciale nadruk die gelegd wordt 
op schildpadden vestigt ook de aan¬ 
dacht op de dingen waarover zij be¬ 
wegen: het scherm, de floppy, en het 
printerpapier. Het grafisch scherm en 
het tekstscherm zijn in LCN LOGO 
ook objekten. 

ZEG gs 
wis 

kleur rood 

Deze gekombineerde opdracht veegt 
het grafisch scherm (gs) schoon, en 
geeft het de kleur rood. 

De objekten vormen een zeer interes¬ 
sante benadering van de vele taken 
van het besturingssysteem van de 
computer. Ze maken het mogelijk dat 
de gevorderde leerling experimen¬ 
teert met zaken als gegevensbestan¬ 
den op floppy disks, met faciliteiten als 
hard copy, enzovoort. Bovendien ga¬ 
randeert deze benadering begrijpelijk¬ 
heid om dezelfde redenen waarom de 
inmiddels klassieke grafische schild¬ 
pad begrijpelijk is. 

Foutmeldingen 

Zoals gezegd wordt de statusbalk ge¬ 
bruikt voor systeem- en foutmeldin¬ 
gen. Die balk is meestal neutraal grijs, 
maar hij krijgt bij het optreden van fou¬ 
ten een rode waarschuwingskleur. 
Betreft het een fout in een LOGO-pro- 
gramma, dan wordt bovendien het 
vlak waarin zich de fout bevindt rood 
gekleurd. 


26 


Commodore Info 



Is bijvoorbeeld x in het volgende op¬ 
dracht niet gebonden aan een waar¬ 
de, dan zal de statusbalk de melding 
‘x heeft geen waarde’ geven, en zal de 
fout op de volgende manier worden 
aangewezen: (zie hiervoor figuur 3 op 
de volgende pagina) 

Afkortingen 

Iedere LOGO-versie biedt de gebrui¬ 
ker de mogelijkheid om vaak voorko¬ 
mende opdrachten af te korten; voor¬ 
uit als ‘vt’, rechts als ‘re’, enzovoort. 
Dat bespaart nogal wat typwerk, maar 
met name langere programma’s zijn 
met al die afkortingen erin moeilijk te 
lezen. LCN LOGO kent het gebruik 
van afkortingen ook, maar ze worden 
-anders dan in andere versies van 
LOGO- reeds bij het intypen door het 
systeem herkend. Dientengevolge 
verschijnen de opdrachten voluit op 
het scherm! De leerling wil bijvoor¬ 
beeld een vierkantje tekenen, en typt: 

H 4 

vt 50 
rs90 

Op het scherm verschijnt het ingetyp¬ 
te als: 

HERHAAL4 

vooruit 50 
rechts 90 


Driedimensionaal 

Een van de meest interessante ken¬ 
merken van LCN LOGO is ongetwij¬ 
feld de mogelijkheid om met de grafi¬ 
sche schildpad in drie dimensies te 
werken. Daarvoor bestaan speciale 
kommando’s, zoals bijvoorbeeld kan¬ 
tel en duik. 

Tekenen in de derde dimensie vergt 
enige oefening (de schildpad zelf is 
dan onzichtbaar), maar na verloop 


van tijd zijn de resultaten al gauw 
spektakulair. 

Windows 

Van een serieus softwarepakket mag 
men tegenwoordig verwachten dat de 
bediening in belangrijke mate menu- 
gestuurd is. Bij LCN LOGO is dat dan 
ook het geval. Maar er is meer: met 
behulp van eenvoudige primitieven 
kan men kleine tekst-schermpjes ma¬ 
ken. Deze schermpjes scrollen onaf¬ 
hankelijk van elkaar, en de gebruiker 
kan ze een naam en kleur geven. Het 
is zelfs mogelijk zo’n tekst-raampje 
over het scherm te laten wandelen! 
Daarbij blijft de achtergrond (het tekst¬ 
scherm) gehandhaafd. 


Zoals gezegd heeft LCN LOGO een 
‘lezende’ cursor: zet je de cursor op 
een woord, dan kun je hem dat woord 
laten opleveren. Tekst-windows en 
cursor-repertoire vormen tesamen de 
ingrediënten voor zelfgemaakte me¬ 
nu’s. Dat men hier fantastische resul¬ 
taten mee kan bereiken is te zien aan 
het meegeleverde demonstratie-pro- 
gramma. 

Opties 

Zoals al eerder gesteld is de Commo- 
doreversie ook nog voorzien van spro¬ 
ken: schildpadklonen, zodat met 
meerdere objecten tegelijk gewerkt 
kan worden. Ook biedt de Commodo- 


reversie uitgebreide geluidsmogelijk¬ 
heden. In het kader van deze bespre¬ 
king weiden we daar voorlopig niet 
verder over uit. Maar dat de Commo¬ 
dore met deze LCN-LOGO nu heel bij¬ 
zondere dingen kan moet duidelijk 
zijn. Niet voor niets maakt de LCN- 
LOGO al een tijdje deel uit van het LOI 
onderwijspakket voor de Commodore. 
Ook het NIVOproject zal LCN-LOGO 
binnenkort omarmen als één van de 
beste softwarepakketten voor het 
middelbaar onderwijs. 

Daar werkt men met MS-DOSappara- 
tuur. Niet alle MS-DOS computers zijn 
hetzelfde. Daar zal een ieder het in¬ 
middels over eens zijn. Vandaar de 
noodzaak om programma’s zo flexibel 
te maken, dat ze ook op andere konfi- 
guraties draaien. 

Bij LCN LOGO is gekozen voor een 
optiefile. Dat is een klein bestand met 
de naam LOGO.OPT, waarin de de- 
fault-waarden van een aantal essen¬ 
tiële variabelen opgenomen zijn. Men 
kan die waarden met iedere eenvou¬ 
dige tekstverwerker naar eigen be¬ 
hoefte veranderen. Het LOGO.OPT 
file bevat bijvoorbeeld waarden voor 
de afmetingen van de opslagruimte 
(uitgedrukt in aantal cellen) en voor de 
rekursiediepte (uitgedrukt in niveaus). 
Bovendien biedt LOGO.OPT de mo¬ 
gelijkheid naar zwart-wit te switchen. 


De prijs van de LCN-LOGO incl. BTW 
en verzendkosten bedraagt ƒ 229,- 
(Commodore) en ƒ 259,- voor de MS- 
DOS versie. 

Voor degenen die eens kennis willen 
maken met de mogelijkheden van het 
LCD-LOGO voor MS-DOS machines- 
bestaat er een demo-versie. Helaas 
kunnen de commodore gebruikers 
niet van een dergelijk aanbod gebruik 
maken; een demo-versie voor de 
commodore is helaas niet voorhan¬ 
den. 

Voor verdere inhoudelijke informatie 
over LCN-LOGO kan men bellen 
naar: 080-238130 
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print-oüt print-out print-out print-out print-out 
Print-OUt Met o.a. Adresboek, Gokken, Flash, Orgel, Kubus 


j Dit is de eerste PRINT-OUT rubriek van het nieuwe 
1 jaar. Ik wil van de gelegenheid gebruik maken om u 
namens alle medewerkers van de uitgeverij Sala 
1 Communications een heel gelukkig en met de compu- 
I ter een heel produktief 1988 toe te wensen. We krij- 
! gen voor deze rubriek nog steeds veel programma’s 
i toegestuurd. Het valt echter op dat hierbij bijna nooit 
l programma’s van vrouwen zijn. Dat is iets wat in dit 
[ nieuwe jaar wel mag veranderen. Wat de dames wel 
i veel mogen doen is het overtikken van de listings, zo- 
I als bij de listingtelefoon duidelijk is te merken aan de 
reacties. Denkt u er nog aan dat programma’s die mee 
I willen dingen naar één van de mooie prijzen voor de 
i prijsvraag bij ons binnen moeten zijn op 15 februari 
van dit jaar. 

R. Goudriaan. 


ma. Wijkt nu een nummer achter een regelnummer af 
van het nummer dat in het blad staat dan heeft u in die 
regel iets anders ingetikt dan er in het blad stond. U 
kunt de stroom getallen d.m.v. de RUN/STOP toets 
pauzeren en weer vervolgen met de F1 of F7 toets. 
Het is uitermate belangrijk dat u goed met dit program¬ 
ma overweg kunt en mocht u het niet goed werkend 
krijgen bel dan gerust even met onze listingservice te¬ 
lefoonlijn. (Maandag 17.00 - 21.00 uur. Telefoonnum¬ 
mer 02155-25162.) 

1 rem ****************************** 

2 rem basic loader "SYNTAX.CHECKSUM" 

3 rem na de commando's "run" en "new 

4 rem blijft dit programma in het ge 


Syntax Checksum 


Het overtikken van een listing kan een heel karwei zijn 
en als u een beetje normaal mens bent dan maakt u 
daarin beslist een aantal fouten. Nu is niets moeilijker 
om de fouten uit je eigen werk te halen. Al geruime tijd 
geleden heeft Jan Bodzinga hiervoor een zgn. Check- 
sum-programma geschreven. Om de vele nieuwe le¬ 
zers van Commodore-info te helpen volgt hieronder 
nog een keer een volledige uitleg over de werking van 
dit programma, waarmee het, hoe vreemd dat mis¬ 
schien ook lijkt, echt mogelijk is om de fouten in elke 
door ons geplaatste listing op te sporen. 

Hiervoor gaat u als volgt te werk: 

1. U tikt de listing heel zorgvuldig over en SAVEt hem 
voordat u het programma RUNt op een diskette of 
cassette. 

2. U tikt het RUN commando in. Mocht het programma 
de boodschap ‘FOUT in dataregels!’ geven dan heeft 
u een fout bij het overtikken gemaakt. Herstel dan de 
fout en SAVE de verbeterde versie. Mocht het pro¬ 
gramma met de boodschap ‘data is weggezet check¬ 
sum testen met sys...’ komen dan is tot dusver alles 
goed. Het programma is nu in een stukje machinetaal- 
geheugen gezet. Als u het NEW commando geeft blijft 
het toch in de computer staan. 

Alle door ons geplaatste programma’s zijn in Basic ge¬ 
schreven. 

Als u een programma heeft overgetikt SAVE het eerst, 
mocht er iets mis gaan dan hoeft u niet de gehele lis¬ 
ting opnieuw te gaan intikken. Als u nu een program¬ 
ma op fouten wilt gaan controleren dan kunt u dat in 
het geheugen laden(wel eerst het checksum program¬ 
ma hebben gerund). Vervolgens typt u zonder het pro¬ 
gramma te runnen de opdracht sys 49152(c-64) of sys 
1536 (c-16 en plus/4)in. 

Als alles goed is gegaan loopt er nu een rij regelnum¬ 
mers over het scherm met getallen erachter. Dezelfde 
lijst staat ook achter elk door ons geplaatste program- 


5 rem heugen, laad het te testen pro 

6 rem gramma en tik daarna sys 49152 

7 rem ****************************** 
*** 

10 i=49152 :rem beginadres 

20 reada:ifa<0then40:rem data ingelez 

en 

30 pokei,a:i=i+l:b=b+a:goto20 

40 if b<>16844thenprint"[SHIFT-CLR]fo 

ut[SPACE]in[SPACE]dataregels!":b=0 
: end 

50 poke49184,148:poke49185,192 

55 i=49300 

60 read a: ifa<0then80 

70 pokei,a:b=a+b:i=i+l:goto60 

80 if b<>20068thenprint"[SHIFT-CLR]fo 

ut[SPACE]in[SPACE]dataregels![SPAC 
E] (vanaf[SPACE]regel[SPACE]2 4 0)":b 
=0:end 

90 print"data[SPACE]is[SPACE]weggezet 

M 

95 print"checksum[SPACE]testen[SPACE] 

met[SPACE]sys49152" 

100 data 165,43,166,44,133,163,134,164 
,169,147 

110 data 32,210,255,160,0,240,3,32,73, 

192 

120 data 32,73,192,208,1,96,32,225,255 

, 208 

130 data 3,76,116,164,32,81,192,32,73, 

192 

140 data 240,12,201,32,240,247,24,101, 

167,133 

150 data 167,76,37,192,166,167,169,0,1 

32.168 

160 data 32,205,189,169,13,32,210,255, 

164.168 

170 data 76,17,192,200,208,2,230,164,1 

77,163 

180 data 96,162,0,189,123,192,240,6,32 

, 210 

190 data 255,232,208 245,32,73,192,170 

32, 73 

200 data 192,132 168,32,205,189,162,3, 

169,32 
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210 data 32,210,255,202,208,250,169,0, 
133,167 

220 data 164,168,96,82,69,71,69,76,32, 
0 

230 data -1 

240 data 165,197,201,3,240,7,201,4,240 

250 data 6,76,148,192,76,34,192,169 

260 data 147,32,210,255,76,161,192 

270 data -1 

** EINDE LISTING checksum 64 ** 


REGEL 

1 

249 

REGEL 

100 

183 

REGEL 

2 

84 

REGEL 

110 

158 

REGEL 

3 

105 

REGEL 

120 

232 

REGEL 

4 

2 

REGEL 

130 

183 

REGEL 

5 

246 

REGEL 

140 

96 

REGEL 

6 

152 

REGEL 

150 

96 

REGEL 

7 

249 

REGEL 

160 

127 

REGEL 

10 

157 

REGEL 

170 

71 

REGEL 

20 

64 

REGEL 

180 

223 

REGEL 

30 

38 

REGEL 

190 

73 

REGEL 

40 

57 

REGEL 

200 

79 

REGEL 

50 

14 

REGEL 

210 

109 

REGEL 

55 

251 

REGEL 

220 

106 

REGEL 

60 

192 

REGEL 

230 

225 

REGEL 

70 

42 

REGEL 

240 

16 

REGEL 

80 

244 

REGEL 

250 

163 

REGEL 

90 

245 

REGEL 

260 

92 

REGEL 

95 

237 

REGEL 

270 

22 


Adresboek 64 


Dat in Belgie ons blad ook heel veel gelezen wordt 
mag wel blijken uit de regelmatig ingezonden pro¬ 
gramma’s. Zo ook deze inzending uit Belgie, die is van 
W van Thurenhout uit Katelijne Waver. Adresboek kan 
natuurlijk door iedereen die een beetje kan program¬ 
meren gewijzigd worden en er kunnen al naar gelang 
de behoefte uitbreidingen in aangebracht worden. 
Hierdoor is het mogelijk dat er in plaats van adressen 
een postzegel- of platen-bestand van wordt gemaakt. 
In elk veld kan gezocht worden naar een gegeven uit 
hst bestand. Het programma is volledig menuge- 
stuurd. 

10 printchr$(147) 

20 printchr$(14) 

30 printtab(15)"[9xCRSR-DOWN][CTRL-2] 

Programma":print 

40 printtab(lO)"[CTRL-8]Willy[SPACE]V 

an[SPACE]Thurenhout[COM-7]":fori=l 
to2000:next 

50 poke 53280,5:poke 53281,0:printchr 

$(154);:dimd$(200,6) 

60 gosub 2000 

70 prinf'kies[SPACE]de[SPACE]gewenste 

[SPACE]functie[SPACE]:" 

80 print"-" : 

print 

90 print"[7xSPACE]-1-[SPACE]bestand[S 

PACE]laden" 

100 print"[7xSPACE]-2-[SPACE]bestand[S 

PACE]saven" 

110 print"[7xSPACE]-3-[SPACE]gegevens[ 

SPACE]invoeren" 


120 print"[7xSPACE]-4-[SPACE]gegevens[ 

SPACE]veranderen" 

130 print"[7xSPACE]-5-[SPACE]gegevens[ 

SPACE]selecteren/uitvoeren"; 

140 print"[7xSPACE]-6-[SPACE]gegevens[ 

SPACE]wissen" 

150 print"[7xSPACE]-0-[SPACE]programma 

[SPACE]beëindigen" 

160 print 

170 print"[SPACE]keuze[SPACE](0-6);[SP 

ACE] " 

180 getx$:ifx$<"0"orx$>"6"thenl80 

190 ifx$<>"0"then 250 

200 print:print"[12xSPACE]zeker[SPACE] 

(j/n)?" 

210 getx$:ifx$<>"n"andx$<>"j"then210 

220 if x$="n"then60 

230 gosub2000 

240 end 

250 onval(x$)gosub270,450, 590, 870,1160 

,1760 

260 goto60 

270 rem ************** 

280 rem gegevens laden 

290 rem ************** 

300 gosub 2000 

310 input"naam[SPACE]van[SPACE]het[SPA 

CE]bestand[SPACE]:";dn$ 

320 openis,8,15 

330 openl,8,2,dn$+",s,r" 

340 input#15,fe:i£ fe=0then370 

350 print"diskettefout!!!" 

360 goto420 

370 x=l 

380 input#l,d$(x,1),d$(x,2) , d$(x,3) ,d$ 

(x,4),d$(x,5),d$(x,6) 

390 if st<>64 then x=x+l:goto380 

400 print"bestand[SPACE]is[SPACE]gelad 

en[SPACE]en[SPACE]bevat[SPACE]";x 
410 print"gegevensrecords":print 

420 closel:olosel5 

430 prinf'verder[SPACE]met[SPACE]retur 

n" 

440 inputx$:return 

450 rem ************** 

460 rem gegevens saven 

470 rem ************** 

480 if x>0then 500 

490 gosub2180:return 

500 gosub 2000 

510 openl,8,2,"':"+dn$+" , s, w" 

520 fori=ltox 

530 print#l, d$ (i, 1) " , "d$ (i, 2) ", "d$ (i, 3 

) ", " ; 

540 print#l, d$ (i, 4) ", "d$ (i, 5) " , "d$ (i, 6 

) 

550 next 

560 print"gegevens[SPACE]zijn[SPACE]ge 

saved":close 1:print 

570 prinf'verder[SPACE]met[SPACE]retur 

n" 

580 inputx$:return 

590 rem ***************** 

600 rem gegevens invoeren 

610 rem ***************** 

620 ifx>0then goto640 

630 gosub2 000:input"bestandnaam[SPACE] 

";dn$ 

640 x=x+l 

650 gosub2000 


(fi 
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print"gegevensinvoer;" 

print"-" :print 

prinf'slechts[SPACE]25[SPACE]aansl 
agen[SPACE]a.u.b." 

print"-" 

:print 

i=x:gosub2080 

fori=lto6;printchr$(145);:next 
fori=lto6:printtab(11);:inputd$(x, 
i):nexti 

if len(d$(x,1))>25 then 2620 
if len(d$(x,2))>25 then 2730 
if len(d$(x,3))>25 then 2840 
if len(d$(x,4))>25 then 2940 
if len(d$(x,5))>25 then 3050 
if len(d$(x,6))>25 then 3160 
print:print"correct[SPACE](j/n)?" 
getx$:ifx$<>"n"andx$<>"j"then800 
ifx$="j"then830 
goto650 

print"nog[SPACE]meer[SPACE]invoere 
n[SPACE](j/n)?" 

getx$:ifx$<>"j"andx$<>"n"then840 

ifx$="j"then640, 

return 

rem ******************* 
rem gegevens veranderen 
rem ******************* 
ifx>0then920 
gosub2180:return 
gosub2000 

input"naam[2xSPACE];[SPACE]";nl$ 
fori=ltox 

ifd$(i,1)=nl$then990 
next i 

print"naam[SPACE]niet[SPACE]gevond 
en I " 

print"verder[SPACE]met[SPACE]retur 

n":inputx$:return 

gosub2000 

print"-1-[SPACE]naam[TxSPACE]:";d$ 

(i,l) 

print"-2-[SPACE]straat/nr.[SPACE]: 
”;d$(i,2) 

print"-3-[SPACE]postcode[3xSPACE]: 
";d$(i,3) 

print"-4-[SPACE]plaats[5xSPACE]:"; 
d$(i,4) 

print"-5-[SPACE]telefoon[3xSPACE]: 
";d$(i,5) 

print"-6-[SPACE]relatie[4xSPACE]:" 

;d$(i,6):print:print 

print"nr.[SPACE]van[SPACE]het[SPAC 

E]te[SPACE]veranderen[SPACE]veld:" 

:print"7=geen[SPACE]verandering":p 

rint 

getx$:ifval(x$)<1 or val(x$)>6andv 
al(x$)<>7thenl070 
if val(x$)=7thenll20 
y=val(x$) 

inpuf'nieuwe[SPACE]inhoud";d$(i, y) 

:print 
goto 990 

print"meer[SPACE]veranderen[SPACE] 
(j/n)?" 

getx$:ifx$<>"j"andx$<>"n"thenll30 

ifx$="j"then870 

return 

rem ***************************** 
rem gegevens selecteren/uitvoeren 


rem ***************************** 

ifx>0thenl210 

gosub2180:return 

goto 2250 

ifx>0thengosub2000:print"uitvoer[S 
PACE]printer[SPACE]of[SPACE]beelds 
cherm[SPACE]?":print 
print"[SPACE]p[SPACE]=[SPACE]print 
er":print:print"[SPACE]b[SPACE]=[S 
PACE]beeldscherm" 

getx$:ifx$<>"p"andx$<>"b"thenl240 
o$=x$:ifo$="b"thenl300 
print:print"papier[SPACE]of[SPACE] 
etiketten[SPACE]?":print 
print"[SPACE]p[SPACE] = [SPACE]lij st 
[SPACE]op[SPACE]papier":print:prin 
t"[SPACE]e[SPACE]=[SPACE]adressenl 
abels" 

getx$:ifx$<>"p"andx$<>"e"thenl280 

d$=x$ 

gosub2000 

print"geef[SPACE]de[SPACE]trefwoor 
den[SPACE]aan[SPACE]:" 
print"bij[SPACE]niet[SPACE]relevan 
te[SPACE]velden[SPACE]alleen[SPACE 
]return!" ; 

print"- 

-":print 

i=0:gosub2080 

fori=lto6:printchr$(145);:s$ (i)="" 
:next 

fori=lto6:printtab(12);:inputs$(i) 

: next 

ifo$="b" or d$="e"thenl470 
gosub2000:print"printer[SPACE]aang 
eschakeld[SPACE](j)?" 
getx$:ifx$<>"j"thenl390 
openl, 4 

a$="naam":b$="adres":c$="code":g$= 
"woonplaats":e$="telefoon":f$="rel 
atie" 

print#l,a$;spc(26-len(a$))b$;spc(2 
6-len(b$))c$; 
print#l,spc(4)g$ 
print#l,e$;spc(15-len(e$))f$ 
fori=lto79:print#l,:next:print 
#1 

closel 

fori=ltox 

fory=lto6 

ifs$(y)=left$(d$(i,y),len(s$(y)))t 

henz= 2 +l:gotol500 

nexty 

ifz=6then gosubl570 
z=0:nexti 

print:print"einde[SPACE]van[SPACE] 

het[SPACE]bestand[SPACE]!!":print 

print"verder[SPACE]met[SPACE]retur 

n":print 

inputx$ 

return 

ifo$="b"thenl720 
ifd$="e"thenl650 
openl,4,7 

print#l, d$(i,1);spc(26-len(d$(i,1) 

))d$(i,2);spc(26-len(d$(i,2)))d$(i 
,3); 

print#l,spc(4)d$(i,4) 

print#l, d$ (i, 5) ; spc (15-len (d$ (i, 5) 

) )d$(i, 6) 
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1 2620 print chr$(147) 

2630 print"[2xCRSR-DOWN]" 

2640 printspc((40-len(d$(x,1)))/2)"[CTR 
L 9]";d$(x,l) 

2650 printtab(14)"[2xCRSR-DOWN][CTRL-9] 
is[SPACE]te[SPACE]lang.[CTRL-0]" 
2660 print"[3xCRSR-DOWN]" 

2670 printtab(8)"[CTRL-S]Druk[SPACE]toe 
ts[SPACE]voor[SPACE]vervolg[COM-7] 

tl 

2680 getk$:ifk$=""then2680 
2690 fory=lto6:d$(x,y)="":nexty 
2700 x=x-l:print"[2xCRSR-DOWN][7xCRSR-R 
IGHT]Record[SPACE]is[SPACE]volledi 
g[SPACE]gewist!":print:print:print 

1 2710 printtab(13)"[CTRL-8]Druk[SPACE]op 
[SPACE]<return>[COM-7]" 

2720 inputx$:return 
2730 print chr$(147) 

2740 print"[2xCRSR-DOWN]" 

2750 printspc((40-len(d$(x,2)))/2)"[CTR 
L 9]";d$(x,2) 

2760 printtab(14)"[2xCRSR-DOWN][CTRL-9] 
is[SPACE]te[SPACE]lang. [CTRL-0] " 
2770 print"[3xCRSR-DOWN]" 

2780 printtab(8)"[CTRL-5]Druk[SPACE]toe 
ts[SPACE]voor[SPACE]vervolg[COM-7] 

II 

2790 getk$:ifk$=""then2850 
2800 fory=lto6:d$(x,y)="":nexty 
2810 x=x-l:print"[2XCRSR-DOWN][7xCRSR-R 
IGHT]Record[SPACE]is[SPACE]volledi 
g[SPACE]gewist!":print:print;print 
2820 printtab(13)"[CTRL-8]Druk[SPACE]op 

I [SPACE]<return>[COM-7]" 

2830 inputx$:return 
2840 print ohr$(147) 

2850 print"[2xCRSR-D0WN]" 

2860 printspc((40-len(d$(x,3)))/2)"[CTR 
L 9]";d$(x,3) 

2870 printtab(14)"[2xCRSR-DOWN][CTRL-9] 
is[SPACE]te[SPACE]lang.[ CTRL-0 ]" 
2880 print"[3xCRSR-DOWN]" 

2890 printtab(8)"[CTRL-5]Druk[SPACE]toe 

I ts[SPACE]voor[SPACE]vervolg[COM-7] 

II 

2900 getk$:ifk$=""then2900 
2910 fory=lto6:d$(x,y):nexty 
2920 x=x-l:print"[2XCRSR-DOWN][7xCRSR-R 
IGHT]Record[SPACE]is[SPACE]volledi 
g[SPACE]gewist!":print:print:print 
2930 printtab(13)"[CTRL-8]Druk[SPACE]op 
[SPACE]<return>[COM-7]" 

2940 print chr$(147) 

2950 print"[3xCRSR-DOWN]" 


2960 printspc((40-len(d$(x,4)))/2)"[CTR 
L 9]";d$(x,4) 

2970 printtab(14)"[2xCRSR-DOWN][CTRL-9] 
is[SPACE]te[SPACE]lang. [CTRL-0] " 
2980 print"[3xCRSR-DOWN]" 

2990 printtab(8)"[CTRL-5]Druk[SPACE]toe 
ts[SPACE]voor[SPACE]vervolg[COM-7] 

II 

3000 getk$:ifk$=""then3000 
3010 fory=lto6:d$(x,y)="":nexty 
3020 x=x-l:print"[2xCRSR-DOWN][7xCRSR-R 
IGHT]Record[SPACE]is[SPACE]volledi 
g[SPACE]gewist!":print:print:print 
3030 printtab(13)"[CTRL-8]Druk[SPACE]op 
[SPACE]<return>[COM-7]" 

3040 inputx$:return 
3050 print chr$(147) 

3060 print"[3xCRSR-DOWN]" 

3070 printspc((40-len(d$(x,5)))/2)"[CTR 
L 9]";d$(x,5) 

3080 printtab(14)"[2xCRSR-DOWN][CTRL-9] 
is[SPACE]te[SPACE]lang. [CTRL-0] " 
3090 print"[3xCRSR-DOWN]" 

3100 printtab(8)"[CTRL-5]Druk[SPACE]toe 
ts[SPACE]voor[SPACE]vervolg[COM-7] 

If 

3110 getk$:ifk$=""then3110 
3120 fory=lto6:d$(x,y)="":nexty 
3130 x=x-l:print"[2xCRSR-DOWN][7xCRSR-R 
IGHT]Record[SPACE]volledig[SPACE]i 
s[SPACE]gewist!":print:print:print 
3140 printtab(13)"[CTRL-8]Druk[SPACE]op 
[SPACE]<return>[COM-7]" 

3150 inputx$:return 
3160 print chr$(147) 

3170 print"[2xCRSR-DOWN]" 

3180 printspc((40-len(d$(x,6)))/2)"[CTR 
L 9]";d$(x,6) 

3190 printtab(14)"[2xCRSR-DOWN][CTRL-9] 
is[SPACE]te[SPACE]lang. [CTRL-0] " 
3200 print"[3xCRSR-DOWN]" 

3210 printtab(8)"[CTRL-5]Druk[SPACE]toe 
t s[SPACE]voor[SPACE]vervolg[COM-7] 

II 

3220 getk$:ifk$=""then3220 
3230 fory=lto6:d$(x,y):nexty 
3240 x=x-l:print"[2xCRSR-DOWN][7xCRSR-R 
IGHT]Record[SPACE]is[SPACE]volledi 
g[SPACE]gewist!":print:print:print 
3250 printtab(13)"[CTRL-8]Druk[SPACE]op 
[SPACE]<return>[COM-7]" 

3260 inputx$:return 

** EINDE LISTING adresboek ** 
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10 

77 
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20 

22 

REGEL 

30 

166 

REGEL 

40 

87 

REGEL 

50 

87 
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60 

79 

REGEL 

70 

60 

REGEL 

80 

66 

REGEL 

90 

205 

REGEL 

100 

231 

REGEL 

110 

36 

REGEL 

120 

169 

REGEL 

130 

213 

REGEL 

140 

154 

REGEL 

150 

215 

REGEL 

160 

153 


REGEL 

170 

127 

REGEL 

180 

28 

REGEL 

190 

29 

REGEL 

200 

136 

REGEL 

210 

171 

REGEL 

220 

88 

REGEL 

230 

79 

REGEL 

240 

128 

REGEL 

250 

145 

REGEL 

260 

239 

REGEL 

270 

219 

REGEL 

280 

71 

REGEL 

290 

219 

REGEL 

300 

79 

REGEL 

310 

216 

REGEL 

320 

251 


REGEL 

330 

95 

REGEL 

340 

20 

REGEL 

350 

219 

REGEL 

360 

31 

REGEL 

370 

59 

REGEL 

380 

96 

REGEL 

390 

66 

REGEL 

400 

2 

REGEL 

410 

22 

REGEL 

420 

17 

REGEL 

430 

107 

REGEL 

440 

201 

REGEL 

450 

219 

REGEL 

460 

96 

REGEL 

470 

219 

REGEL 

480 

0 


REGEL 

490 

32 

REGEL 

500 

79 

REGEL 

510 

204 

REGEL 

520 

169 

REGEL 

530 

160 

REGEL 

540 

254 

REGEL 

550 

130 

REGEL 

560 

73 

REGEL 

570 

107 

REGEL 

580 

201 

REGEL 

590 

89 

REGEL 

600 

73 

REGEL 

610 

89 

REGEL 

620 

142 

REGEL 

630 
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Disk Base 



■ 

80 

printspc(9)" 

[2xCRSR- 

-DOWN][CTRL-: 

9]s 


Dit maal een inzender uit Friesland, Nick de Jong uit 
Leeuwarden. Hij kwam voor het probleem te staan, 
dat meerdere fanatieke computeraars kennen, hoe be¬ 
waren we de gegevens van de steeds maar weer gro¬ 
ter wordende voorraad diskettes. Alle gegevens moe¬ 
ten toch weer snel opgezocht zijn. Hij vond de oplos¬ 
sing en schreef het volgende programma. Diskbase is 
volledig menugestuurd en dus door iedereen te begrij¬ 
pen. 

10 goto40 

20 print"error:";:closelS:openlS,8,15 

:input#15,a,b$,c,d:printa;b$;c;d:c 
loselS 

30 print"[CRSR-DOWN]toets":return 

40 clr:dima$(2001):1$="[16xSPACE]":s= 

0;e=0 

50 po]ce53280, 0 :poke53281, 0 :poke646, 5 : 

poke650,128 
60 goto310 

70 print"[SHIFT-CLR]:ifs-l>0thengos 

loblOO 


top[SPACE]disk[SPACE]in[SPACE]driv 
e[SPACE]en" 

printtab(14)"[CTRL-9]druk[SPACE]sp 
atie[CTRL-0]":waitl98,197:pokel98, 
0:gotol70 

print"[SHIFT-CLR]"spc(5)"[2xCRSR-D 
OWN] [CTRL-9]t ot[SPACE]nu[SPACE]t oe 
"s;"[CRSR-LEFT][SPACE]namen[SPACE] 
ingelezen";return 

gosublOO:printspc(5)"[CTRL-9][2xSP 
ACE]nog[SPACE]een[SPACE]diskette[S 
PACE]?[SPACE](j/n)[2xSPACE]" 
pokel98,0 

geta$:ifa$=""thenl30 
ifa$="n"thenreturn 

ifa$="j"ora$="[SPACE]"thenpokel98, 

0:gotol70 

gotol20 

printspc(5)"[SHIFT-CLR][3xCRSR-DOW 
N][CTRL-9]ik[SPACE]lees[SPACE]dire 
ctory [CTRL-0] [2xCRSR-DOWN]":e=s+l: 
openl,8,0,"$":get#l,a$,b$ 
get#l,a$,b$,a$,b$;c=0:bl$="":a$(e) 
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■ I 


Ml 

Mü 


■HB 

■ i 

•.•''sfr*'"' 

IBM 




■1 

IfPffi 


■ 




ifa$<>""thenc=asc(a$) 

ifb$<>""thenc=c+asc(b$)*256 

bl$=left$(str$(c),4) 

get#l, b$ : ifstoOthenclosel; s=e-l: f 

=0:gotollO 

ifb$<>chr$(34)then220 

get#l,b$:ifb$<>chr$(34)thena$(e)=a 

$(e)+b$:goto240 

get#l,b$:c$="":ifb$=chr$(32)then25 
0 

c$=c$+b$:get#l,b$:ifb$<>""then260 
iff=0thena$(s)=left$(a$(s)+l$,17)+ 
c$ : id$=inid$ (a$ (s) , 18, 3) :printa$ (e) 

:f=l:goto300 

ifleft$(c$,3)<>"prg"then300 
a$(e)=left$(left$(a$(e)+1$,17)+id$ 
,19)+bl$;printa$(e):e=e+l 
ifst=0thenl80 

print"[SHIFT-CLR][CTRL-9][llxSPACE 
]diskbase[2xSPACE]1000+[14xSPACE]" 
;:pokel98,0 

printspc(2)"[CTRL-0][CRSR-DOWN]ges 
chreven[SPACE]door:":printspc (2)"n 
ick[SPACE]de[SPACE]jong[2xCRSR-D0W 
N] " 

print"[SxSPACE][CTRL-9][SPACE]fl[S 
PACE] [CTRL-0] [SPACE]namen[SPACE]Ie 
zen" 

print"[CRSR-DOWN][SxSPACE][CTRL-9] 
[SPACE]f2[SPACE] [CTRL-0] [SPACE]geh 
eugen[SPACE]legen" 
print"[CRSR-DOWN][SxSPACE][CTRL-9] 
[SPACE]f3[SPACE] [CTRL-0] [SPACE]dat 
a[SPACE]veranderen" 
print"[CRSR-DOWN][SxSPACE][CTRL-9] 
[SPACE]f4[SPACE] [CTRL-0] [SPACE]dat 
a[SPACE]sorteren" 

print"[CRSR-DOWN][SxSPACE][CTRL-9] 
[SPACE]f5[SPACE] [CTRL-0] [SPACE]dat 
a[SPACE]loaden" 

print"[CRSR-DOWN][SxSPACE][CTRL-9] 
[SPACE]f6[SPACE] [CTRL-0] [SPACE]dat 
a[SPACE]saven" 

print"[CRSR-DOWN][SxSPACE][CTRL-9] 
[SPACE]f7[SPACE] [CTRL-0] [SPACE]dat 
a[SPACE]uitprinten" 
print"[CRSR-DOWN][SxSPACE][CTRL-9] 
[SPACE]f8[SPACE] [CTRL-0] [SPACE]dat 
a[SPACE]op[SPACE]scherm" 
print"[CRSR-DOWN][SxSPACE][CTRL-9] 

[SPACE]c=[SPACE] [CTRL-0] [SPACE]and 

ere[SPACE]kleuren" 

geta$:ifa$<>""then590 

ifpeek(145)=223thenprint"[SHIFT-CL 

R][2xCRSR-DOWN]":goto450 

goto420 

print"[HOME][6xCRSR-DOWN]"spc(7)"[ 
CTRL-9][SPACE]fl[SPACE] [CTRL-0] [SP 
ACE]schermrand[CRSR-DOWN]":printsp 
c(7)"[CTRL-9][SPACE]f3[SPACE][CTRL 
0][SPACE]achtergrond[CRSR-DOWN]" 
printspc(7)"[CTRL-9][SPACE]fS[SPAC 
E] [CTRL-0] [SPACE]letterkleur[CRSR- 
DOWN] ":printspc(7)"[CTRL-9][SPACE] 
f7[SPACE] [CTRL-0] [SPACE]terug[SPAC 
E]naar[SPACE]menu" 
geta$:ifa$=""then470 
ifa$="[Fl]"thenSSO 
ifa$="[F3]"thenSSO 
ifa$="[FS]"then570 


ifa$="[F7]"then310 
goto470 

a=peek(53280);a=a-239;ifa=16thena= 
0 

poke53280,a;goto470 
a=peek(53281):a=a-239:ifa=16thena= 
0 

poke53281,a:goto470 
a=peek(646):a=a+l:ifa=16thena=0 
poke646,a:goto450 
ifa$="[Fl]"thengosub70:gotoSlO 
ifa$="[F2]"thenprint"[SHIFT-CLR][C 
RSR-DOWN][CRSR-RIGHT]ok":run 
ifa$="[F3]"thengosub680;goto310 
ifa$="[F4]"thengosubl350:goto310 
ifa$="[FS]"thengosubll70:goto310 
ifa$="[F6]"thengosubl260;goto310 
ifa$="[F7]"thengosubl540:nm$="":ad 
$="":wp$="":tl$="":da$="":goto310 
ifa$="[F8]"thengosubl390:goto310 
goto420 

ifs=0thenprint"[SHIFT-CLR][CRSR-DO 
WN][SPACE]er[SPACE]zijn[SPACE]geen 
[SPACE]namen[SPACE]in[SPACE]het[SP 
ACE]geheugen":print"[SPACE]druk[SP 
ACE]toets" 

11$=!$+!$:e=l:ifs=0thenwaitl98,197 
:goto310 
11$=1$+1$ 

print"[SHIFT-CLR][2xSPACE]element[ 
SPACE]verwijderen[SxSPACE];[SPACE] 
[CTRL-9][SPACE]'[SPACE] [CTRL-0] " 
print"[2xCRSR-DOWN][2xSPACE]elemen 
t[SPACE]verbeteren[4xSPACE]:[SPACE 
][CTRL-9][SPACE]*[SPACE] [CTRL-0] " 
print"[2xCRSR-DOWN][2xSPACE]elemen 
t[SPACE]verder[SxSPACE]:[SPACE][CT 
RL 9][SxSPACE] [CTRL-0] " 
print"[2xCRSR-DOWN][2xSPACE]elemen 
t[SPACE]terug[9xSPACE]:[SPACE][CTR 
L 9][SPACE][kwadraatpijl][SPACE][C 
TRL 0] " 

print"[2XCRSR-DOWN][2xSPACE]nieuw[ 
SPACE] element [9xSPACE] : [SPACE.] [CTR 
L 9][SPACE]+[SPACE] [CTRL-0] " 
print"[2xCRSR-DOWN][2xSPACE]elemen 
t[SPACE]zoeken[SxSPACE]:[SPACE][CT 
RL 9][SPACE]I[SPACE] [CTRL-0] " 
print"[2xCRSR-DOWN][2xSPACE]terug[ 
SPACE]naar[SPACE]menu[7xSPACE]:[SP 
ACE][CTRL-9][SPACE][pijl links][SP 
ACE] [CTRL-0] ":goto790 
ife=lore=sthenprint"[CRSR-UP][6xSP 
ACE] " 

print"[HOME][22xCRSR-DOWN]";:e$=st 
r$(e) :print"("right$(e$,len (e$)-1) 
")[SPACE]" 

print"[CRSR-UP]";iprintspc(6)a$(e) 

;:q=33-len(a$(e)):printleft$(11$,q 

) 

geta$:ifa$=""thenSlO 
ifa$="[SPACE]"thene=e+l:ife>sthene 
=1 

ifa$="[kwadraatpijl]"thene=e-l:ife 

<lthene=s 

ifa$="'"then900 

ifa$="*"then910 

ifa$="+"then930 

ifa$="[pijl links]"thenSlO 

ifa$="I"then960 
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1210 print" [CRSR-DOWN] in [SPACE’’te [SPACE 


890 goto780 

900 forq=etos:a$(q)=a$(q+1):next:s=s-l 
:goto780 

910 print"[HOME][21xCRSR-DOWN][CRSR-RI 
GHT][3xSPACE]korrektie:[2xSPACE]": 
input"[4XSPACE]";a$(e) 

920 print"[HOME][21xCRSR-DOWN][18xSPAC 
E]":print"[SxSPACE]":goto780 
930 print"[HOME][21xCRSR-DOWN][CRSR-RI 
GHT][3xSPACE]nieuw[SPACE]element": 
input"[4XSPACE]";a$(s+l):s=s+l 
940 a$(s)=left$(a$(s) ,23) 

950 goto920 

960 print"[SHIFT-CLR][CRSR-DOWN][CTRL 
9][2xSPACE]element[SPACE]zoeken[SP 
ACE]:[2xSPACE][CTRL-0][3xCRSR-DOWN 
] " 

970 print"[SPACE][CTRL-9][SPACE]1[SPAC 
E] [CTRL-0] [SPACE]-[SPACE]op[SPACE] 
naam[SPACE](*[SPACE]is[SPACE]toege 
staan)" 

980 print"[CRSR-DOWN][SPACE][CTRL-9][S 
PACE]2[SPACE] [CTRL-0] [SPACE]-[SPAC 
E]op[SPACE]disknummer" 

990 print"[CRSR-DOWN][SPACE][CTRL-9][S 
PACE][pijl links][SPACE] [CTRL-0] [S 
PACE]-[SPACE]terug[SPACE]naar[SPAC 
E]menu" 

1000 geta$:ifa$=""thenl000 
1010 ifa$="[pijl links]"then710 
1020 ifa$="l"thenl050 
1030 ifa$="2"thenll20 
1040 gotolOOO 

1050 pokel9,64:input"[HOME][13xCRSR-DOW 
N]naam:";n$:pokel9,0:n$=left$(n$, 1 
6):print 

1060 l=len(n$):ifmid$(n$, 1, l)="*"thenl= 
l-l:n$=left$(n$,l)rw=0:gotollOO 
1070 n$=n$+l$:n$=left$(n$, 16) 

1080 forq=0tos:ifleft$(a$(q),16)=n$then 
printa$(q);w=w+l:ifw=23thengosubll 
60 

1090 next:print"[CRSR-DOWN][CTRL-9]eind 
e[SPACE]lijst.[2xSPACE]druk[SPACE] 
toets [CTRL-0] ":waitl98,197:goto960 
1100 forq=0tos:ifleft$(a$(q),1)=n$thenp 
rinta$(q):w=w+l:ifw=23thengosubll6 
0 

1110 next:print"[CRSR-DOWN][CTRL-9]eind 
e[SPACE]1ij st.[2xSPACE]druk[SPACE] 
toets [CTRL-0] ":waitl98,197:goto960 
1120 pokel9,64:input"[HOME][13xCRSR-DOW 
N]nummer:";n$:pokel9, 0 
1130 n$=n$+"[3XSPACE]":n$=left$(n$, 3) :p 

rint 

1140 forq=0tos:ifmid$(a$(q),18,3)=n$the 
nprinta$(q) 

1150 next:print"[CRSR-DOWN][CTRL-9]eind 
e[SPACE]1ij st. [2xSPACE]druk[SPACE] 
toets [CTRL-0] ":waitl98,197:goto960 
1160 pokel98,0:waitl98,197:w=0:pokel98, 
0:return 

1170 input"[SHIFT-CLR][2xCRSR-DOWN]naam 
[SPACE]file:";m$:ifleft$(m$,1)<>"* 
"thenm$=left$(m$,16):gotoll90 
1180 gotoll70 
1190 open2,8,2,m$:e=l 

1200 n$="":input#2,n$:an=val(n$):ifan<l 

thenclose2:gosub20:waitl98,197:ret 
urn 


]lezen[SPACE]namen" ; an 
1220 print"[CRSR-DOWN]naam:[SPACE]"; 

1230 ife>anthenclose2:s=s+(e-1):gosubl3 
30:return 

1240 input#2,a$(s+e) 

1250 printtab(7)e"[CRSR-UP]":e=e+l:goto 
1230 

1260 input"[SHIFT-CLR][2xCRSR-DOWN]naam 
[SPACE]te[SPACE]saven[SPACE]file:" 
;m$:m$=left$(m$,16) 

1270 open2,8,2,"0:"+m$+", s, w" 

1280 print#2,str$(s):print"aantal:[SPAC 
E] "s 

1290 print"[CRSR-DOWN]naam:[SPACE]";:q= 
1 

1300 ifq>sthenl320 

1310 print#2,a$(q):printtab(7)q"[CRSR-U 
P]":q=q+l:gotol300 
1320 close2:return 

1330 closelS:openis,8,15:input#15,a,b$, 
c,d:ifa=0thenreturn 

1340 print"[2xCRSR-DOWN][CTRL-9][SPACE] 
disk[SPACE]error:[SPACE] [CTRL-0] "a 
;b$;c;d:waitl98,197:closelS:return 
1350 remifpeek(49152)<>76andpeek(49153) 
OlOOthenprint"[SHIFT-CLR]geen[SPA 
CE]sorter":end 

1360 print"[SHIFT-CLR][CRSR-DOWN][CTRL 
9]ben[SPACE]aan[SPACE]het[SPACE]s o 
rteren":ti$="000000":print"[2xCRSR 
-DOWN]"s"woorden[SPACE]"; 

1370 sys49152,s,a$(1):print"in"ti/60"se 

c" 

1380 pokel98,0:print"[2xCRSR-DOWN][CTRL 
9]druk[SPACE]toets [CTRL-0] ":waitl 
98,197:return 

1390 print"[SHIFT-CLR][2xCRSR-DOWN][2xC 
RSR-RIGHT][CTRL-9][SPACE][pijl lin 
ks][SPACE]=[SPACE]menu[SPACE][CTRL 
0]":lt=0:w=0 

1400 printtab(7)a$(It):w=w+l:lt=lt+l:if 
w=23thengosubl460:ifa$="[pijl link 
s]"thenl450 

1410 geta$:ifa$="[pijl links]"thenl450 
1420 iflt<s+lthenl400 

1430 print"[CRSR-DOWN][CTRL-9][SPACE]dr 
uk[SPACE]op[SPACE][pijl links][SPA 
CE] [CTRL-0] " 

1440 geta$:ifa$<>"[pijl links]"thenl440 
1450 return 

1460 geta$:ifa$=""thenl460 
1470 w=0:return 

1480 printchr$(147) 

1490 openl,4,0:closel:ifst=0thenreturn 
1500 print"[HOME][lOxCRSR-DOWN][CTRL-9] 
[SPACE]error:[2xSPACE]device[SPACE 
]4[SPACE]not[SPACE]present" 

1510 print"[2xCRSR-DOWN][CTRL-9][SPACE] 
doe[SPACE]printer[SPACE]aan[SPACE] 
of[SPACE]druk[SPACE]'[pijl links]' 

1520 geta$:ifa$="[pijl links]"thenretur 
n 

1530 gotol490 

1540 gosubl480:ifa$<>"[pijl links]"then 
print"[SHIFT-CLR][CTRL-9]m[CTRL-0] 
et[SPACE]of[SPACE][CTRL-9]z [CTRL-0 
]onder[SPACE]header":gotol560 
1550 return 
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’ 1650 
1660 
1670 


■t- 

^1 

■ 
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s 

I 

■ I 

■ 'l 


m 

* *\ 

w-i-v^Vv»i 


geta$:ifa$=""thenl560 
ifa$="m"thenl600 
ifa$="z"thenl640 
gotol550 

input"[SHIFT-CLR][2xCRSR-D0WN]soor 
t";so$:print:so$=left$(so$,35);inp 
ufnaam"; nm$ 

nm$=left$ (nin$, 35) :print: inpuf'adre 
s";ad$;ad$=left$(ad$,35):print 
input"woonplaats";wp$:wp$=left$(wp 
$,35):print:input"tel";tl$:print 
tl$=left$(tl$,35):input"datum";da$ 
:da$=left$(da$,35):print 
input"aantal[SPACE]regels[SPACE]pe 
r[SPACE]blad[SPACE]";ar 
ifar<lthenar=l 
ifar>2000thenar=2000 
open4,4:re$=chr$(13):gr$=chr$(14): 
kl$=chr$(15):vn$=chr$(18):vo$=chr$ 
(146) 

ifa$="z"thenl750 

print#4,gr$;re$; "»[SPACE] "so$" [SP 
ACE]«";re$:ifnm$<>""thenprint#4, n 
m$ 

ifad$<>""thenprint#4, ad$ 
iftl$<>""thenprint#4,tl$ 
ifwp$<>""thenprint#4,wp$ 
ifda$<>""thenprint#4,re$;"diskette 
[SPACE]inhoud[SPACE]van[SPACE]"da$ 
; re$ ; 

print#4,re$;"programma's:"s;re$ 
ib$="prg.naam[QxSPACE]id[SPACE]bl[ 
4xSPACE]":print#4,kl$;ib$;ib$;ib$ 
sr$="":forq=lto75:sr$=sr$+"[SHIFT 
*]":next:print#4,sr$;re$ 
nr=0:an=int(s/3)+1:al=l:r=0 
pl=26-len(a$(al)):p2=26-len(a$(al+ 
an)):r=r+l:al=al+l 

print#4,a$(al);spc(pl);a$(al+an);s 
pc(p2);a$(al+(2*an)):al=al+l 
ifal=an+lthenprint"klaar"iwait198, 


197:el=0:al=0:close4:return 
310 print"[SHIFT-CLR][2xCRSR-D0WN]nu[S 
PACE]"al"[SPACE]regels[SPACE]gepri 
nt" 

320 ifr=arthengotol840:r=0 
330 gotol780 

340 print"[4xCRSR-D0WN][CTRL-9][4xSPAC 
E][CTRL-0][SPACE]doorgaan":print"[ 
CRSR-DOWN][CTRL-9][SPACE]fl[SPACE] 
[CTRL-0] [SPACE]prg.naam,[SPACE]id, 

[SPACE]bl[SPACE]en[SPACE]lijn[SPAC 
E] " 

350 print"[CRSR-DOWN][CTRL-9][SPACE]f3 
[SPACE] [CTRL-0] [SPACE]een[SPACE]re 
gel[SPACE]printen":print"[CRSR-DOW 
N][CTRL-9][SPACE]f5[SPACE] [CTRL-0] 

[SPACE]nieuw[SPACE]aantal[SPACE]re 
gels[SPACE]ingeven" 

360 print"[CRSR-DOWN][CTRL-9][SPACE]f6 
[SPACE] [CTRL-0] [SPACE]header,lijn[ 
SPACE]en[SPACE]doorgaan":print"[CR 
SR-DOWN][CTRL-9][SPACE]f7[SPACE][C 
TRL 0][SPACE]Stoppen" 

370 geta$:ifa$=""thenl870 
380 ifa$=chr$(32)thenr=0:gotol830 
390 ifasc (a$)<133orasc(a$)>139thenl870 
300 q=asc(a$)-132:onqgotol920,1930,194 
0,1910,1870,1870,1690,1870 
310 olose4:al=0:ar=0:r=0:el=0:return 
320 print#4,kl$;ib$;ib$;ib$;re$;sr$;re 
$:gotol870 

330 r=ar-l:gotol780 

340 inpuf'aantal[SPACE]regels[SPACE]pe 
r[SPACE]keer";ar 
350 ifar<lthenar=l 
360 ifar>2000thenar=2000 
370 print"[SHIFT-CLR][2xCRSR-DOWN]nu[S 
PACE]"al"[SPACE]regels[SPACE]gepri 
nt":gotol840 

EINDE LISTING disk-bas ** 


REGEL 

10 

237 

REGEL 

330 

229 

REGEL 

650 

83 

REGEL 

970 

157 

REGEL 

1290 

REGEL 

20 

69 

REGEL 

340 

189 

REGEL 

660 

202 

REGEL 

980 

143 

REGEL 

1300 

REGEL 

30 

69 

REGEL 

350 

15 

REGEL 

670 

31 

REGEL 

990 

252 

REGEL 

1310 

REGEL 

40 

69 

REGEL 

360 

152 

REGEL 

680 

228 

REGEL 

1000 

142 

REGEL 

1320 

REGEL 

50 

42 

REGEL 

370 

218 

REGEL 

690 

56 

REGEL 

1010 

132 

REGEL 

1330 

REGEL 

60 

29 

REGEL 

380 

165 

REGEL 

700 

221 

REGEL 

1020 

132 

REGEL 

1340 

REGEL 

70 

69 

REGEL 

390 

59 

REGEL 

710 

221 

REGEL 

1030 

131 

REGEL 

1350 

REGEL 

80 

46 

REGEL 

400 

139 

REGEL 

720 

3 

REGEL 

1040 

74 

REGEL 

1360 

REGEL 

90 

19 

REGEL 

410 

215 

REGEL 

730 

175 

REGEL 

1050 

116 

REGEL 

1370 

REGEL 

100 

181 

REGEL 

420 

29 

REGEL 

740 

164 

REGEL 

1060 

241 

REGEL 

1380 

REGEL 

110 

187 

REGEL 

430 

22 

REGEL 

750 

154 

REGEL 

1070 

44 

REGEL 

1390 

REGEL 

120 

149 

REGEL 

440 

31 

REGEL 

760 

15 

REGEL 

1080 

50 

REGEL 

1400 

REGEL 

130 

97 

REGEL 

450 

47 

REGEL 

770 

125 

REGEL 

1090 

201 

REGEL 

1410 

REGEL 

140 

105 

REGEL 

460 

130 

REGEL 

780 

194 

REGEL 

1100 

23 

REGEL 

1420 

REGEL 

150 

210 

REGEL 

470 

104 

REGEL 

790 

4 

REGEL 

1110 

201 

REGEL 

1430 

REGEL 

160 

28 

REGEL 

480 

170 

REGEL 

800 

30 

REGEL 

1120 

220 

REGEL 

1440 

REGEL 

170 

238 

REGEL 

490 

173 

REGEL 

810 

102 

REGEL 

1130 

159 

REGEL 

1450 

REGEL 

180 

167 

REGEL 

500 

176 

REGEL 

820 

129 

REGEL 

1140 

241 

REGEL 

1460 

REGEL 

190 

176 

REGEL 

510 

169 

REGEL 

830 

186 

REGEL 

1150 

201 

REGEL 

1470 

REGEL 

200 

232 

REGEL 

520 

36 

REGEL 

840 

102 

REGEL 

1160 

218 

REGEL 

1480 

REGEL 

210 

53 

REGEL 

530 

168 

REGEL 

850 

81 

REGEL 

1170 

148 

REGEL 

1490 

REGEL 

220 

22 

REGEL 

540 

100 

REGEL 

860 

84 

REGEL 

1180 

82 

REGEL 

1500 

REGEL 

230 

15 

REGEL 

550 

169 

REGEL 

870 

128 

REGEL 

1190 

146 

REGEL 

1510 

REGEL 

240 

77 

REGEL 

560 

101 

REGEL 

880 

136 

REGEL 

1200 

214 

REGEL 

1520 

REGEL 

250 

182 

REGEL 

570 

216 

REGEL 

890 

40 

REGEL 

1210 

213 

REGEL 

1530 

REGEL 

260 

99 

REGEL 

580 

0 

REGEL 

900 

33 

REGEL 

1220 

128 

REGEL 

1540 

REGEL 

270 

50 

REGEL 

590 

93 

REGEL 

910 

149 

REGEL 

1230 

141 

REGEL 

1550 

REGEL 

280 

53 

REGEL 

600 

18 

REGEL 

920 

206 

REGEL 

1240 

218 

REGEL 

1560 

REGEL 

290 

244 

REGEL 

610 

149 

REGEL 

930 

147 

REGEL 

1250 

144 

REGEL 

1570 

REGEL 

300 

84 

REGEL 

620 

196 

REGEL 

940 

110 

REGEL 

1260 

49 

REGEL 

1580 

REGEL 

310 

190 

REGEL 

630 

193 

REGEL 

950 

36 

REGEL 

1270 

120 

REGEL 

1590 

REGEL 

320 

239 

REGEL 

640 

197 

REGEL 

960 

104 

REGEL 

1280 

179 

REGEL 

1600 
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REGEL 1610 
REGEL 1620 
REGEL 1630 
REGEL 1640 
REGEL 1650 
REGEL 1660 
REGEL 1670 
REGEL 1680 


196 

147 

7 

4 

31 

63 

62 

180 


REGEL 1690 
REGEL 1700 
REGEL 1710 
REGEL 1720 
REGEL 1730 
REGEL 1740 
REGEL 1750 
REGEL 1760 


168 

36 

90 

104 

152 

213 

159 

151 


REGEL 1770 
REGEL 1780 
REGEL 1790 
REGEL 1800 
REGEL 1810 
REGEL 1820 
REGEL 1830 
REGEL 1840 


14 

196 

73 

111 

225 

141 

89 

186 


Floppy is geschreven door Dick Sietses uit s’Graven- 
zande. Met dit programma kunnen de belangrijkste 
funkties van de commodore 1541 Disk Drive op een 
eenvoudige wijze worden uitgevoerd. 


10 

rem *c* floppy *c 



* 

250 

20 

rem * 6 * door diok sietses * 6 



★ 

260 

30 

rem * 4 * uit 's-gravenzande * 4 



* 

270 

40 

rem 


50 

poke53280,4:poke53281,4 

280 

60 

print"[SHIFT-CLR]" 

290 

70 

print"[CRSR-DOWN][CTRL-8][13xSPACE 
]m[SPACE]e[SPACE]n[SPACE]u[SPACE]" 


80 

print"[4xCRSR-DOWN][CTRL-2][CTRL-9 

300 


][COM-K]1 [CTRL-0] [COM-K][SPACE]for 

310 


matteren" 

320 

90 

print"[CRSR-DOWN][CTRL-9][COM-K]2[ 
CTRL-0] [COM-K][SPACE]verwijderen[S 
PACE]van[SPACE]een[SPACE]programma 

It 


100 

print"[CRSR-DOWN][CTRL-9][COM-K]3[ 
CTRL-0] [COM-K][SPACE]inhoud[SPACE] 
disk[SPACE]lezen[SPACE]" 

330 

110 

print"[CRSR-DOWN][CTRL-9][COM-K]4[ 



CTRL-0] [COM-K][SPACE]programma[SPA 

340 


CE]nieuwe[SPACE]naam[SPACE]geven" 

350 

120 

print"[CRSR-DOWN][CTRL-9][COM-K]5[ 
CTRL-0] [COM-K][SPACE]einde" 


130 

print"[CRSR-DOWN][CTRL-9][COM-K]6[ 
CTRL-0] [COM-K][SPACE]lege[SPACE]ru 
imten[SPACE]tus sen[SPACE]de[SPACE] 

360 


programma's[6xSPACE]wegwerken" 

370 

140 

print"[3xCRSR-DOWN][SPACE]e[SPACE] 



V[SPACE]e[SPACE]n[3xSPACE]g[SPACE] 
e[SPACE]d[SPACE]u[SPACE]1[SPACE]d[ 
SPACE]![SHIFT-SPACE]![CRSR-UP]":cl 

380 


osel 

390 

150 

print"[26xSPACE][4xCRSR-UP]":close 

1:gosub380 


160 

print"[2xCRSR-DOWN]uw[SPACE]keuze[ 
CTRL-1][2xCRSR-DOWN][6xCRSR-LEFT][ 

400 


CRSR-DOWN][CRSR-UP]"; 

410 

170 

poke204,0:geta$:ifa$=""thenl70 

420 

180 

poke204, 1 ;onval(a$)goto200,230,240 

430 


,290,450,310 

440 

190 

gotol70 

450 

200 

input"[SHIFT-CLR] [CRSR-DOWN]naam[S 



PACE]diskette";a$ 

** ^ 


REGEL 1850 
REGEL 1860 
REGEL 1870 
REGEL 1880 
REGEL 1890 
REGEL 1900 
REGEL 1910 
REGEL 1920 


192 

96 

157 

137 

66 

11 

15 

244 


REGEL 1930 
REGEL 1940 
REGEL 1950 
REGEL 1960 
REGEL 1970 


24 

31 

63 

11 


210 input "niimmer [SPACE] diskette" ;b$ : b$ 

=str$(val(b$)) 

220 a$="new:"+a$+","+b$:openl,8,15,a$: 

save"floppy",8:goto60 
230 inpuf'welk[SPACE]programma";a$:a$= 
"scratch:"+a$:openl,8,15, a$:goto60 
240 gosub320:print"[SHIFT-CLR]diskette 
[SPACE]naam:";:openl,8,0,a$:get#l, 
3 $ , 3 $ 

get#l,a$,a$;ifa$=""thenclosel:inpu 
t"<return>";c$:x$="":goto60 
get#l,a$,b$:bf=asc(a$+chr$(0))+256 
*asc(b$+chr$(0)) 

get#l,a$:ifa$=""thengosub390:goto2 
50 

x$=x$+a$:goto270 

inpuf'oude[SPACE]naam";a$:inpuf'ni 
euwe[SPACE]naam";b$:a$="r:"+b$+"=" 
+a$:openl,8,15,a$ 
goto60 

openl,8,15,"validate":goto60 
print:print"[CRSR-UP][SHIFT-CLR]wi 
It[SPACE]u[SPACE]de[SPACE]director 
y[SPACE]van;[CTRL-9][COM-K]1[CTRL- 
0][COM-K]de[SPACE]hele[SPACE]disk" 
:printtab(24); 

print"[CTRL-9][COM-K]2[CTRL-0][COM 
K]een[SPACE]gedeelte":printtab(27 
);"van[SPACE]de[SPACE]disk":inputa 
$:a=val(a$) 

a$="$":ifa=lthenreturn 
print"van[SPACE]welk[SPACE]gedeelt 
e(voor[SPACE]willekeurige[SPACE]Ie 
t-ter[SPACE]een'?'."; 
print"en[2xSPACE]de[2xSPACE]rest[2 
xSPACE]van[2xSPACE]het[SPACE]woord 
[SPACE]willekeurig[SPACE]een'*'" 
inpuf’welk[SPACE]gedeelte";a$:a$=" 
$:"+a$:return 

openl,8,15:input#l,a$,b$,c$,d$:pri 
nt"situatie[SPACE]disk:[SPACE]"b$: 
closel:return 

a=l:ifleft$(x$,12)="blooks[SPACE]f 
ree."thenprinf'vrij[SPACE]geheugen 
:”bf;"blocks":return 
a=a+l:ifmid$(x$,a,1)=chr$(34)thenv 
$=right$(x$,((len(x$))-a)):goto420 
goto400 

v$=left$(v$, 16) 
printchr$(34); 
printv$;bf:x$="":return 
new 

EINDE LISTING floppy64 ** 


REGEL 

10 

151 

REGEL 

100 

119 

REGEL 

190 

33 

REGEL 

280 

21 

REGEL 

370 

165 

REGEL 

20 

18 

REGEL 

110 

13 

REGEL 

200 

135 

REGEL 

290 

61 

REGEL 

380 

28 

REGEL 

30 

109 

REGEL 

120 

110 

REGEL 

210 

126 

REGEL 

300 

239 

REGEL 

390 

298 

REGEL 

40 

143 

REGEL 

130 

133 

REGEL 

220 

194 

REGEL 

310 

169 

REGEL 

400 

1 

REGEL 

50 

45 

REGEL 

140 

113 

REGEL 

230 

226 

REGEL 

320 

239 

REGEL 

410 

2 

REGEL 

60 

112 

REGEL 

150 

142 

REGEL 

240 

103 

REGEL 

330 

248 

REGEL 

420 

8 

REGEL 

70 

193 

REGEL 

160 

108 

REGEL 

250 

131 

REGEL 

340 

157 

REGEL 

430 

8 

REGEL 

80 

132 

REGEL 

170 

40 

REGEL 

260 

92 

REGEL 

350 

246 

REGEL 

440 

7 

REGEL 

90 

174 

REGEL 

180 

186 

REGEL 

270 

208 

REGEL 

360 

28 

REGEL 

450 

1 
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Flash 


Edwin van der Eist uit Rotterdam stuurde ons dit pro¬ 
gramma. Het beeld snel laten knipperen konden we al 
wel. Maar nu zonder balken over het beeld te laten lo¬ 
pen. Uiteraard weer geen interrupt. 


10 


20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 


rem in £1$ de tekst die moet knipp 
eren,in h het hoogste cijfer dat i 
ngetoetst 

rem kan worden,in t het aantal spa 
ties 

rem voorbeeld: 

printchr$(147):fl$="commodore[SPAC 
E]info[2xSPACE](1-3)":t=9:h=3 
gosub 90:rem aanroepen flash-sub 
routine 


end 

fl$="[CTRL-9]"+fl$ 

printtab(t);fl$:fora=lto60 

geti$:ifi$<>""thenl50 

next;print"[CRSR-UP]";tab(t);fl$:f 

ora=lto60 

geti$:ifi$<>""thenl50 
next:print"[CRSR-UP]";:gotol00 
ifval(i$)<lorval(i$)>hthenprint"[C 
RSR-UP]:gotol00 
i=val(i$):return 


EINDE LISTING flash-64' 


REGEL 

10 

58 

REGEL 

90 

3 

REGEL 

20 

250 

REGEL 

100 

147 

REGEL 

30 

107 

REGEL 

110 

37 

REGEL 

40 

198 

REGEL 

120 

68 

REGEL 

50 

3 

REGEL 

130 

37 

REGEL 

60 

58 

REGEL 

140 

185 

REGEL 

70 

58 

REGEL 

150 

194 

REGEL 

80 

128 

REGEL 

160 

70 


Orqel 128 


Deze inzender, Y. Rozijn, kennen we ook zo langza¬ 
merhand wel als trouwe inzender van prima 128 pro¬ 
gramma’s, dit maal met het programma orgel. Met dit 
programma maak men van de 128 een orgeltje. Het 
toetsenbord fungeert als klavier. De verdeling van de 
witte en zwarte toetsen wordt op het scherm getoond. 
Akkoorden spelen kan ook, door twee of drie toetsen 
tegelijk in te drukken. Met de funktietoetsen kun je de 
waveform kiezen. 


10 

20 

30 

40 

50 

60 


70 

80 


rem ****************************** 
rem ** orgel ** 

rem ** voor c-128 ** 

rem ** door y rozijn, amsterdam ** 
rem ****************************** 
color 0,16:color 4,16:color 5,7:co 
lor 6,16:scnclr:print chr$(ll)chr$ 
(14) ; 

char 1,12,0,"O[2xSPACE]R[2xSPACE]G 

[2xSPACE]E[2xSPACE]L" 

char 1,0,3,"Indeling[SPACE]van[SPA 


CE]de[SPACE]witte[SPACE]en[SPACE]z 
warte[SPACE]toetsen:" 

90 char 1,9,11,"[kwadraatpijl]":char 
1,0,12,"De[SPACE]linker[SPACE]SHIF 
T[SPACE]is[SPACE]de[SPACE]centrale 
[SPACE]C" 

100 color 5,l:char 1,2,5,"1[CRSR-RIGHT 
]2[3xCRSR-RIGHT]4[CRSR-RIGHT]5[CRS 
R-RIGHT]6[3xCRSR-RIGHT]8[CRSR-RIGH 
T]9[3xCRSR-RIGHT]+[CRSR-RIGHT]-[CR 
SR-RIGHT] I ", 1 

110 char 1,10,9,"a[CRSR-RIGHT]s[3xCRSR 
-RIGHT]f[CRSR-RIGHT]g[CRSR-RIGHT]h 
[3xCRSR-RIGHT]k[CRSR-RIGHT]1[3xCRS 
R-RIGHT];[CRSR-RIGHT]=[CRSR-RIGHT] 
R", 1 

120 color 5,2:for i=l to 27 step 2:cha 
r 1,i,5,"[SPACE]", 1:char l,i+8,9," 
[SPACE]",l:next 

130 char 1, 1, 6,"C[CRSR-RIGHT]q[CRSR-RI 
GHT]w[CRSR-RIGHT]e[CRSR-RIGHT]r[CR 
SR-RIGHT]t[CRSR-RIGHT]y[CRSR-RIGHT 
]u[CRSR-RIGHT]i[CRSR-RIGHT]o[CRSR- 
RIGHT] p [CRSR-RIGHT] '[CRSR-RIGHT]*[ 
CRSR-RIGHT] [kwadraatpij1]", 1 
140 char 1,9,10,"S[CRSR-RIGHT]z[CRSR-R 
IGHT]X[CRSR-RIGHT]c[CRSR-RIGHT]v[C 
RSR-RIGHT]b[CRSR-RIGHT]n[CRSR-RIGH 
T]m[CRSR-RIGHT],[CRSR-RIGHT].[CRSR 
-RIGHT]/[CRSR-RIGHT]S[CRSR-RIGHT]C 
[CRSR-RIGHT]C", 1 

150 color 5,7:char 1,0,15,"Waveform[SP 

ACE]instellen:[SPACE]F1,F3,F5,F7" 
160 char 1,0,19,"Even[SPACE]wachten... 

tl 

170 rem keyboard scan routine 

180 bank 15:for i=0to 73:read k:poke 

dec("1300")+i,k:next 

190 data 120,169,255,141,47,208,169,25 

4 

200 data 162,0,134,250,133,252,141,0 

210 data 220,173,1,220,205,1,220,208 

220 data 248,160,7,42,176,21,72,132 

230 data 251,165,250,10,10,10,5,251 

240 data 168,185,0,20,157,0,11,232 

250 data 164,251,104,136,16,229,230,25 

0 

260 data 165,252,56,42,176,206,169,50 

270 data 157,0,11,157,1,11,157,2 

280 data 11,96 

290 rem toets/noot tabel 

300 for i=0to 63:read k:poke dec("140 

0")+i,k:next 

310 data 50, 46,47,54,51,52,53,45 

320 data 50,4,25,6,26,27,5,24 

330 data 8,7,50,10,29,30,9,28 

340 data 50,11,32,13,33,34,12,31 

350 data 15,14,50,50,36,37,16,35 

360 data 18,17,39,20,40,50,19,38 

370 data 22,21,42,50,43,44,23,41 

380 data 1,55,0,3,50,50,2,56 

390 rem sid frekwenties 

400 dim f(50):for i=36 to 47:read f(i) 

: next 

410 data 8912,9442,10004,10599,11216,1 

1897 

420 data 12604,13353,14148,14989,15880 

, 16824 

430 k=l:for s=2 to Ostep -l:k=k*2 

440 : for i=0to ll:f(12*s+i)=f(36+i)/ 
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k:next 
450 next 

460 k=dec("1300"):b=dec("ObOO")-1:1=32 

767:w=2 

470 poke dec("0328"),112:trap 630 

480 char 1,0,19,"Stoppen[SPACE]dmv[SPA 

CE]de[SPACE]STOP[SPACE]toets" 

490 if rwindow(2)=40then begin 
500 ; char 1,0,22,"Druk[SPACE]een[SPAC 

E]toets.[SPACE]Daarna[SPACE]wordt[ 
SPACE]het[SPACE]scherm" 

510 : char 1,0,23,"grijs[SPACE]en[SPAC 

E]kunt[SPACE]u[SPACE]beginnen[SPAC 
E]te[SPACE]spelen." 

520 : char 1,0,24,"Met[SPACE][pijl[SPA 

CE]links][SPACE]haalt[SPACE]u[SPAC 
E]dit[SPACE]scherm[SPACE]even[SPAC 
E]terug." 

530 : wait 212,255,88 

540 bend 
550 fast 

560 do :sysk:fors=lto3:i=peek(b+s) :ifi> 
50thengosub590 

570 f=f(i):ifs(s)-fthensounds, ., .:soun 
ds,f,1,,,,w:s(s)=f 
580 next:loop 
590 if i<55 then w=i-51 
600 if i=55 then slow:do:sysk:loop whi 
Ie peek(b+1)=55:fast 
610 if i=56 then sysdec("fa53"):end 
620 i=50:return 

630 slow:print:print err$(er)"[SPACE]e 

rror[SPACE]in"el 

640 for s=l to 3:sound s,0,0:next 

650 poke 208,0 

660 end 
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IRQ in Basic 128 


Van dezelfde inzender Y. Rozijn het volgende pro¬ 
gramma IRQ in Basic. Met programmering via de IRQ 
interrupt zijn fraaie effecten te bereiken. Helaas was 
dit alleen weggelegd voor de machinetaal program¬ 
meurs. Maar met een eenvoudige truc is iets derge¬ 
lijks ook mogelijk in Basic. In het programma IRQ in 
Basic staat een uitvoerige uitleg, het geeft bovendien 
een voorbeeld van een interrupt routine. Het één en 
ander is goed in een eigen programma te gebruiken. 

1 rem ****************************** 

2 rem ** irq in basic ** 

3 rem ** voor c-128 ** 

4 rem ** door y rozijn, amsterdam ** 

5 rem ****************************** 

100 rem periodiek uitvoeren van een 

110 rem interrupt routine in basic 

120 rem gaat op de volgende manier: 

130 rem 1. poke deze machinetaal 

140 rem routine weg: 

150 : 

160 for i=0to 57:read q:poke dec("130 

0")+i,q:next 

170 data 120,141,58,19,141,59,19,170 

180 data 240,14,173,127,18,41,251,141 

190 data 127,18,169,39,162,19,208,7 

200 data 141,120,18,169,101,162,250,14 

1 

210 data 20,3,142,21,3,88,96,206 

220 data 58,19,208,11,173,59,19,141 

230 data 58,19,169,255,141,120,18,76 

240 data 101,250 

250 : 

260 rem 2. meld de interrupt routine 

270 rem aan als collision routine 

280 rem voor type 3 (lightpen): 

290 : 

300 collision 3, 730 

310 : 

320 rem 3. aktiveer de machinetaal- 

330 rem routine, geef als paramete 

r 

340 rem op na hoeveel jiffies (ca 

350 rem l/50sec elk) de interrupt 

360 rem routine moet worden uitge- 

370 rem voerd (0=stop). 

380 : 

390 sysdec("1300") , 10 

400 : 

410 rem nu wordt ongeveer elke 1/5 se 

c. 

420 rem (lOjiffies) de routine op 

430 rem regel 730uitgevoerd. 

440 rem 

450 rem ondertussen kun je gewoon met 

460 rem je programma verdergaan. 

470 rem bijvoorbeeld: 

480 : 

490 rem definieer sprite 1 als blok: 

500 for a=3584 to 3646:poke a,255:next 

510 i=90:movespr 1,180,60:sprite 1,1,2 

520 print "de[SPACE]sprite[SPACE]bewee 

gt[SPACE]in[SPACE]een[SPACE]cirkel 

II 

530 print:print "stop[SPACE]met[SPACE] 

druk[SPACE]op[SPACE]toets" 
do 



540 
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550 . x=x+l:print x; 

560 : get x$ 

570 loop while x$="" 

580 

590 rem uitzetten van de interrupt 

600 rem routine als volgt; 

610 : 

620 sysdec("1300"), 0 

630 : 

640 print "routine[SPACE]uit[SPACE]->[ 
SHIFT-SPACE]sprite[SPACE]gaat[SPAC 
E]rechtdoor" 

650 end 

660 

670 rem onderstaande routine zorgt 

680 rem ervoor dat bij elke aanroep 
690 rem (ca elke 1/5 sekonde) de spri 
te 

700 rem van richting verandert zodat 

710 rem hij in een cirkel beweegt. 

720 : 

730 i=i+3:if i>360then i=i-360 

740 movespr l,i#l:return 

750 : 

760 rem zet de routine bij voorkeur z 
o 

770 rem ver mogelijk vooraan in het 
780 rem programma, dat scheelt tijd! 
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Gardes c 16 


Steven Bakker uit Wieringerwerf. Character Designer 
heet zijn programma. Hij geeeft u hiermee de moge¬ 
lijkheid zelf karakters te maken, deze weg te schrijven 
en dan later in een eigen programma te gebruiken. 
Hiermee is het dan mogelijk bijvoorbeeld een sierletter 
op het beeldscherm te schrijven. Nadat u de charac- 
ters heeft gemaakt drukt u op Esc, dit mag u pas doen 
als u helemaal klaar bent want het programma vernie¬ 
tigd zichzelf. Er blijft een basicloader over die zonder 
aanpassingen in een eigen programma kan worden 
gebruikt. Het is voldoende deze op te roepen aan het 
begin van uw eigen programma. 

10 gotolOSO 

20 ; 

30 rem-cursor+uitlezing keyboard- 

40 cp=3354+mn+y*40+x:fs=cp-1024 

50 ifpeek(cp)<128thenpokecp,peek(cp)+ 

128:pokefs,peek(fs)orl28 
60 poke239,0:getkeyt$:sound3,th,1:pok 

ecp,peek(cp)-128 rpokefs,peek(fs)an 
dl27:return 
70 : 

80 rem- 

90 print"[HOME]":poke2021, 4;print"[SH 

IFT CLR][CRSR-DOWN]tape[SPACE]gere 
ed?[CRSR-UP]":return 

100 rem- 

110 rem menu 2 (matrix) 

120 rem- 

130 mn=ll:gosub520 

140 gosub40 

150 ift$="[CRSR-LEFT]"andx>0thenx=x-l 

160 ift$="[CRSR-RIGHT]"andx<7thenx=x+l 

170 ift$="[CRSR-UP]"andy>0theny=y-l 

180 ift$="[CRSR-DOWN]"andy<7theny=y+l 

190 ift$="+"thencl$(x,y)="Q":gosub570 

200 i£t$="-"thencl$(x,y):gosub570 

210 ift$="r"thengosub300 

220 ift$="s"thengosub330 

230 ift$="i"thengosub360 

240 ift$="?"thengosub400 

250 ift$="[SHIFT-CLR]"thengosub450 

260 ift$=chr$(13)orj=>128thengosub480: 

goto630 
270 gotol40 

280 

290 rem-roteer- 

300 fory=0to7:forx=0to7:c2$(x, y)=cl$(7 

-y,x):next:next:gosub580:return 
310 : 

320 rem-spiegel- 

330 fory=0to7:forx=0to7:c2$(7-x, y)=cl$ 

(x,y):next:next:gosub580:return 

340 

350 rem-inverteer- 

360 fory=0to7:forx=0to7:ifcl$(x,y)="Q" 

thencl$(x,y)=".":elsecl$(x,y)="Q" 

370 gosub570:next:next:x=0:y=0:return 

380 ; 

























c2=cs+8*mc:bt=fnbyte(cr):forl=0to7 
:pokebt+l,peek(c2+l):next;return 


w=int(rnd(l)*5)+2:fory=0to7:forx=0 
to7:r=int(rnd(l)*w) 

ifr=lthencl$(x,y)="Q";elsecl$(x,y) 


fory=0to7;forx=0to7:cl$(x,y):n 
ext:char,13,7+y,wl$:next:x=0;y=0:r 
eturn 


gosub90 rgosub40:ift$<>"j"thenlOOO: 
elseopenl,1,1,tp$:forl=cstocs+1023 
print#1,peek(1);chr$(13);:next:pri 
nt#l:closel:gotolOOO 


forl=0to7:by=0:fonn=7to0step-l:ifc 
1$(7-m,l)="Q"thenby=byor(2[kwadraa 
tpijljm) 

next:pokebt+1,by:next:x=xl:y=yl:me 
=cr;return 


980 gosub90:gosub40:ift$<>"j"thenlOOO: 

elseopenl,1,0,tp$:forl=cstocs+1023 
990 input#l,vl:pokel,vl:next:closel 

1000 gosubl350:poke2021,24:return 
1010 : 

1020 rem- 


poke3293,cr:gosub450:bt=fnbyte(cr) 

:fory=0to7:k=y+bt:form=7to0step-l 
x=7-m:if(peek(k)and(2[kwadraatpij1 
]m))=0thencl$(x,y)=".":elsecl$(x, y 


1030 rem initialisatie 
1040 rem- 


1050 scnclr:colorO,1:char,14,12, "[CTRL- 
2]even[SPACE]geduld[CTRL-l]":print 
"[HOME][6xCRSR-DOWN]t[SPACE]dOOO[S 
PACE]d7£5[SPACE]3800" 

1060 print"[CRSR-DOWN]t [SPACE]dOOO[SPAC 
E]d400[SPACE]3400" 

1070 print"[CRSR-DOWN]x":print"[CRSR-DO 
WN]run3020[HOME]":poke239, 4:£orl=l 
319tol322:pokel,13:next rmonitor 

1080 poke55,255:poke56,51:clr:v=65298:p 
okev,peek(v)and251:pokev+l,(peek(v 
+1)and3)or56 

1090 vol8:colorl,1:forl=lto38:1$=1$+"[C 
TRL 9][SPACE][CTRL-0]":11$=11$+"[C 
OM I]":next 

1100 £orl=lto8:keyl,"":next:cr=0:x=0:y= 
0:dimcl$(7,7),c2$(7,7):tp$="charse 


char,13+x,7+y,cl$(x,y):return 
£ory=0to7:£orx=0to7:cl$(x,y)=i 
, y) : gos\ab570: next: next: x=0: y=i 
urn 


mn=0 

gosub40 

i£t$="[CRSR-LEFT]"andx>0thenx=x-l: 
cr=cr-l 

i£t$="[CRSR-RIGHT]"andx<7thenx=x+l 
:cr=cr+l 

i£t$="[CRSR-UP]"andy>0theny=y-l;cr 
=cr-8 

i£t$="[CRSR-DOWN]"andy<15theny=y+l 
:cr=cr+8 

i£t$="o"thengosub800 

i£t$="c"thengosub830 

ift$="0"thengosub860 

ift$="4"thengosub900 

ift$="s"thengosub940 

ift$="l"thengos\ab980 

ift$=chr$(13)thenxl=x:yl=y:gotol30 

i£t$=chr$(27)thenl400 

goto640 


1110 cs=14336:w$="[8xSPACE]":th=1021:mn 

=0 : wl$="." ; deffnbyte (cr) =14 

336+(8*cr) 

1120 sl$="[SPACE]B"+w$+"B[SPACE]B"+wl$+ 

"B[SPACE]B"+w$+"[6xSPACE]B":s4$="C 
CCCCCCC";s5$=s4$+"CCCCCC" 

1130 s2$="[SPACE]B"+w$+"B[SPACE]B"+w$+w 

$+w$+"[SPACE]B":s6$="[COM-Q]"+s5$+ 
"[COM-W]" 

1140 

1150 rem- 


1160 rem 
1170 rem- 


1180 gosubl350 

1190 print"[3xSPACE]charset:[2xSPACE]ka 
rakter:[4xSPACE]commando's:" 

1200 print"[SPACE][COM-A]"s4$"[COM-S][S 


bt=fnbyte(cr):forl=0to7:pokebt+1,p 
eek(bt+1-1024):next:return 


Commndore tnfii J-.S8 
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PACE][COM-A]"s4$”[COM-S][SPACE][CO 
M A]"s5$"[COM-S]" 

data,,[+]-plot punt,[-]-wis punt,[ 
r]-roteer,[s]-spiegel,[i]-invertee 
r 

data[?]-rnd char,[return]-vergroot 
char,[c]-copieer [o]-orig.char 
data[0] [4]-schermkleuren,[s]-save 
set [l]-load set,[esc]-basicloade 
r & stop 

forl=lto8;gosubl330:next 

print"[SPACE]B"w$"B[SPACE][COM-Z]" 

s4$"[COM-X][SPACE]B[shft/clr]-wisB 

tl 

print"[SPACE]B"w$"B"w$"[4xSPACE]B[ 
return]-terugB" 

print"[SPACE]B"w$"B[SPACE][COM-A]" 
s4$"CC[C0M-E]"s5$"[COM-W]" 
f=ll;forl=lto5;gosubl330:next 
print"[SPACE][COM-Z]"s4$"[COM-X][S 
PACE][COM-Z]"s5$;s4$"CCC[COM-X]"; 
char,24,7,"[cursor]-move":char,23, 
8,s6$ 

t=0:fork=0tol5;forl=0to7:poke3072+ 
(7+k)*40+1+2,t:t=t+l:next:next 
soundl,900,10:colorO,2:goto630 
iff=0thens3$=sl$:elses3$=s2$ 
readc$:mid$(s3$, 25-f,len(c$))=c$:p 
rints3$:return 

print"[SHIFT-CLR][SPACE]"11$"[2xSP 
ACE][CTRL-9][3xSPACE]commodore[SPA 
CE]16[2xSPACE]character[SPACE]desi 
gner[3xSPACE]":print"[SPACE]"1$ 
print"[SPACE][CTRL-9][lOxSPACE]ste 
ven[SPACE]bakker[SPACE]1987[lOxSPA 
CE][CTRL-O][2xSPACE][CTRL-9]"11$"[ 
CTRL-0]";;return 


13ÖÜ rem Dasicroaaer 
1390 rem- 


100 print"[HOME]":pokel341,0 

110 kb=1319:cr=peek(1341):bt=14336+8*c 

r:forl=0tol:form=0to7:c(1)=c(1)+pe 
ek(bt+m) 

120 next:bt=bt-1024:next:ifc(0)=c(1)th 
enl470 

130 rg$=rg$+str$(cr+5000)+"[SPACE]data 
"+str$(cr)+",":bt=14336+8*cr:forl= 
0to7 

140 s$=str$(peek(bt+1)):rg$=rg$+right$ 
(s$,len{s$)-l)+",":next 

150 rg$=left$(rg$,len(rg$)-1);print"[S 
HIFT CLR]"rg$:print"run4060":poke2 
39,3;pokekb,19 

160 pokekb+1,13;pokekb+2, 13:end 

170 pokel341,peek(1341)+1:ifpeek(1341) 
<128thenl410 

180 print"[SHIFT-CLR]delete-4999":poke 
239,2:pokel319,19;pokel320,13:end 

190 data-1, -1,-1,-1,-1,-1,-1,-1,-1 

500 print"[SHIFT-CLR][6xCRSR-DOWN]t[SP 
ACE]dO 0 0[SPACE]d7f5[SPACE]3800":pr 
int"[CRSR-DOWN]x":print"[CRSR-DOWN 
]run5202[HOME]":poke239, 3 

510 forl=1319tol321:pokel,13:next:moni 

tor 

520 do:readsa:ifsa<0thenexit:elseforl= 
0to7:readbt:pokel4336+8*sa+l,bt:ne 
xt;loop 

530 poke55,255:poke56,55;clr:v=65298:p 
okev,peek(v)and251:pokev+l,(peek(v 
+1)and3)or56 
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Gokken 


Het volgende programma is er één voor de gokliefheb- 
bers. Het is een programma dat we al een tijdje heb¬ 
ben liggen en waar geen inzender van bekend is. 

10 rem **************************** 

20 rem *gokken voor c-16 en plus/4* 

30 rem **************************** 

40 vol7 

50 print"[SHIFT-CLR][CTRL-1]" 

60 print"[3xSPACE]het[SPACE]spel[SPAC 

E]gokken[SPACE]met[SPACE]de[SPACE J 
computer" 

70 print"[SPACE]wordt[SPACE]gespeeld] 

SPACE]mét[SPACE]2[SPACE]'rollen'." 

80 print"[SPACE]eerst[SPACE]moet[SPAC 

E]je[SPACE]je[SPACE[beginkapitaal" 

90 print"[SPACE]opgeven.[SPACE]en[SPA 

CE]daarna[SPACE]wordt[SPACE]er[SPA 
CE]gevraagd" 

100 print"[SPACE[hoeveel[SPACE]je[SPAC 
E]inzet.[SPACE]daarna[SPACE]probeé 
r" 

110 print"[SPACE]je[SPACE]het.[SPACE]a 
Is[SPACE]je[SPACE]een[SPACE]score[ 
SPACE]van[SPACE]2,3" 

120 print"[SPACE]o f[SPACE]12[SPACE]heb 

t[SPACE]in[SPACE]het[SPACE]begin[S 
PACE]dan[SPACE]" 

130 print"[SPACE]win[SPACE]j e. [SPACE]a 

Is[SPACE]je[SPACE]een[SPACE]score" 

140 print"[SPACE]van[SPACE]7[SPACE]of[ 
SPACE]11[SPACE]hebt[SPACE]dan[SPAC 
E]verlies[SPACE]je." 

150 print"[SPACE]als[SPACE]je[SPACE]ee 

n[SPACE]andere[SPACE]score[SPACE]d 
an" 

160 print"[SPACE]2,3,7,ll[SPACE]of[SPA 
CE]12[SPACE]hebt[SPACE]dan[SPACE]m 
oet[SPACE]je" 

170 print"[SPACE[dat[SPACE[getal[SPACE 

]wat[SPACE]j e[SPACE]dan[SPACE]hebt 
[SPACE]halen." 

180 print"[SPACE]als[SPACE]je[SPACE]da 

t[SPACE]getal[SPACE]dan[SPACE]hebt 
[SPACE]dan[SPACE]" 

190 print"[SPACE]win[SPACE]je,maar[SPA 

CE]als[SPACE]je[SPACE]dan[SPACE]7[ 
SPACE]of[SPACE]11" 

200 print"[SPACE]hebt[SPACE]verlies[SP 

ACE]je. 

210 print"[SPACE]je[SPACE]moet[SPACE]n 

et[SPACE]zolang[SPACE]doorgaan[SPA 
CE] " 

220 print"[SPACE]totdat[SPACE]je[SPACE 

]een[SPACE]van[SPACE]die[SPACE]dri 
e[SPACE](7,11 

230 print"[SPACE]of[SPACE]het[SPACE]ge 

tal[SPACE]om[SPACE]te[SPACE]winnen 

) 

240 print"[SPACE]haalt. 

250 print 

260 print"[SPACE]druk[SPACE]een[SPACE] 

toets[SPACE]om[SPACE]verder[SPACE] 
te[SPACE]gaan. 

270 geta$ 

280 if a$=""then 270 

290 rem ********************** 

300 rem *de 'rollen' opzetter* 


310 rem ** 1 *^******************* 

320 a$="[9xSPACE]U[7xSHIFT-*]I[SxSPACE 

]U[7xSHIFT-"*] I" 

330 b$=" [9xSPACE] [SHIFT—] [SPACE] [CRSR 

-RIGHT][5xSPACE][SHIFT--][5xSPACE] 
[SHIFT--][7xSPACE][SHIFT--]" 

340 c$="[9xSPACE]J[7xSHIFT-*]K[5xSPACE 

]J[7xSHIFT-*]K" 

25Q jrQxn ************************ 

360 rem *hét verkrijgen van een* 

370 rem *begin kapitaal * 

380 rsiTL ************************ 

390 print"[SHIFT-CLR]" 

400 input"[3xSPACE]begin[SPACE]kapitaa 
l";c 

4 ]_Q rem ********************* 

420 rem *het starten van de * 

430 rem *volgende weddeschap* 

440 rem ********************* 

450 print"[SxSPACE]druk[SPACE]een[SPAC 

E]toets[SPACE]voor[2IxSPACE]volgen 
de[SPACE]wedde s chap" 

460 get r$ 

470 if r$=""then 460 

480 print"[SxSPACE]je[SPACE]kapitaal[S 
PACE]is[SPACE]nu";c 

490 input"[SxSPACE]hoeveel[SPACE]zet[S 
PACE]je[SPACE]in";w 
500 if w > Othen 530 

510 print"[SxSPACE]doe[SPACE]niet[SPAC 

E]zo[SPACE]stom!" 

520 goto 450 

530 if,w<=c then 590 

540 print"[SxSPACE]zoveel[SPACE]heb[SP 

ACE]je[SPACE]niet I" 

550 goto450 

560 rem ************************* 

570 rem *organiseer het proberen* 

580 rem ************************* 

590 print"[SHIFT-CLR][3xCRSR-D0WN][3xS 
PACE]eerste[SPACE]keer[SHIFT-SPACE 
] (inzet=";w;")" 

600 print"[HOME][7xCRSR-DOWN]";a$ 

610 forj=lto5 
620 printb$ 

630 nextj 
640 printc$ 

650 rem *********************** 

660 rem *de cijfers verkrijgen* 

670 jc&m. **********************5*f 

680 q=int(10+50*rnd(0)) 

690 forz=ltoq 

700 a=int(l+6*rnd(0)) 

710 b=int(l+6*rnd(0)) 

720 rem ***************************** 

730 rem *het geluid bij het draaien * 

740 rem *vah de getallen voor de gok* 

75Q £‘ein ***************************** 

760 soundl,700+3*(a*a+b*b) ,4 

770 print"[HOME][lOxCRSR-DOWN][12xCRSR 
-RIGHT]";a;"[llxCRSR-RIGHT]";b 
780 next z 

790 £*@111 ****************************** 

800 rem *het optellen van de getallen* 

810 rem ****************************** 

820 t=a+b 

830 rem ****************** 

840 rem *overspringen als* 

850 rem *de speler wint * 

860 rem ****************** 
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870 if t=7 then 1360 

880 if t=ll then 1360 

890 rem ********************* 

900 rem *overspringen als de* 

910 rem *speler verliest * 

920 rem ********************* 

930 if t=2 then 1600 
940 if t=3 then 1600 
950 if t=12 then 1600 
960 print 
970 print 
980 print 

990 print"[3xSPACE]je[SPACE]moet";t;"k 
rijgen[SPACE]voor[SPACE]7" 

1000 print"[8xCRSR-D0WN][3xSPACE]druk[S 
PACE]een[SPACE]toet s[SPACE]om[SPAC 
E]verder[SPACE]te[SPACE]gaan" 

1010 get r$ 

1020 if r$ = "" then 1010 
1030 print"[SHIFT-CLR][CRSR-DOWN][3xSPA 
CE]volgende[SPACE]kans(inzet=";w;" 
)" 

1040 print"[3xSPACE]proberen[SPACE]om"; 

t;"te[SPACE]krijgen" 

1050 print"[HOME][4xCRSR-DOWN]" 

1060 print a$ 

1070 forj=lto5 
1080 print b$ 

1090 next j 
1100 print c$ 

1110 rem *********************** 

1120 rem *laat de getallen zien* 

1130 rem *********************** 

1140 q=int(10+10*rnd(0)) 

1150 for z=l to q 
1160 a=int(l+6*rnd(0)) 

1170 b=int(l+6*rnd(0)) 

1180 soundl,700+3*(a*a+b*b) , 4 
1190 print"[HOME][8xCRSR-DOWN][12xCRSR- 
RIGHT]";a;"[llxCRSR-RIGHT]";b 
1200 next z 

1210 rem ************************* 

1220 rem *als a+b=t:despeler wint* 

1230 rem ************************* 

1240 if a+b=t then 1360 
1250 rem *************************** 
1260 rem *als a+b=7:speler verliest* 
1270 rem *************************** 
1280 if a+b=7 then 1600 

1290 rem ****************************** 
★ * 

1300 rem *anders doet de speler nog een 
s* 

1310 rem ****************************** 

1320 gotolOOO 

1330 rem ************* 

1340 rem *speler wint* 

1350 rem ************* 

1360 print"[7xCRSR-DOWN][3xSPACE]je[SPA 
CE]wint" 

1370 rem *************************** 
1380 rem *optellen van het gewonnen* 
1390 rem * bedrag * 

1400 rem *************************** 
1410 c=c+w 

1420 rem ********************* 

1430 rem *het winnende geluid* 

1440 rem ********************* 

1450 forj=lto500:nextj 


1460 soundl,834,32 
1470 soundl,798,24 
1480 soundl,810,8 
1490 soundl,834,32 
1500 soundl,739,32 
1510 soundl,770,8 
1520 soundl,798,8 
1530 soundl,810,8 
1540 soundl,834,8 
1550 soundl,810,16 
1560 soundl,798,16 
1570 soundl,770,64 
1580 goto450 

1590 rem ***************** 

1600 rem *speler verliest* 

1610 rem ***************** 

1620 print"[lOxCRSR-DOWN][3xSPACE]je[SP 
ACE]verliest" 

1630 rem ************************ 

1640 rem *het verliezende geluid* 

1650 rem ************************ 

1660 for j=lto500:nextj 
1670 for x=800tol000step 4 
1680 soundl,x,l 
1690 soundl,x+23, 1 
1700 nextx 

1710 rem *********************** 

1720 rem *het aftrekken van het* 

1730 rem * verloren bedrag * 

1740 rem *********************** 

1750 c=c-w 
1760 ifc=0thenl780 
1770 if c > Othen 450 
1780 if ed= 2then 1810 

1790 prinf'voor[SPACE]deze[SPACE]keer[S 
PACE]krij g[SPACE]j e[SPACE]10 0[SPAC 
E]punten":c=l0 0 
1800 ed=2 :goto450 

1810 print"je[SPACE]bent[SPACE]gebroken 
[SPACE]" 

1820 fored=itol000:next 
1830 printchr$(147)"[SPACE]commodore[SP 
ACE]basic[SPACE]v3.5[SPACE]12277[S 
PACE]bytes[SPACE]free" 

1840 end 

** EINDE LISTiNG geldweg **. 
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Kubus c16 


M Podda uit Enschede is vast een actief kubus puzze¬ 
laar, hij stuurde ons namelijk de computerversie van 
dit zenuwslopende spel op. Een tweedimensionale uit¬ 
voering waarbij de rijen naar rechts of naar beneden 
schuiven d.m.v. de cijfertoetsen. 


10 rem *****************************’'^ 


20 

rem 

★ ★★★★ 

kubus c-16 

* * 

30 

rem 

it-k-k 

***** 

bewerkt door m.podda 

** 

40 

rem 

★ ★★ 

***** 

origineel door 

** 

50 

rem 

***** 

e.de ruiter 

** 


ir*if 

60 rem ****************************** 

■kifk 


70 print"[SHIFT-CLR]":colorO, 1:color4 

,1:colorl,5 

80 dima%(5,5):fori=0to4:reada%:forj=0 

to4:a%(i,j)=a%;nextj,i 
90 data28,5,31,158,30 

100 goto260 

110 rem ** scherm ** 

120 print"[SHIFT-CLR][lOxCRSR-RIGHT]OC 

6CC7CC8CC9CC0CI" 

130 fori=5tolstep-l:printspc(10);"B";s 

pc(15);"B" 

140 a$=right$(str$(i),1)iprintspc(9);a 

$;"B";spc(15);"B";a$ 

150 printspc(lO); "B" ;spc(15); "B" 

160 next :print"[3xSPACE][7xCRSR-RIGHT 

]JC6CC7CC8CC9CC0CK":print"[2xCRSR- 
DOWN][CTRL-9]o[CTRL-0]pnieuw":prin 
t"[CRSR-DOWN][CTRL-9]s[CTRL-0]topp 
en" 


200 rem ** verdraaien ** 

210 fori=5tolstep-l:a%(a,i)=a%(a,i-1): 
next 

220 a%(a,0)=a%(a,5):return 
230 fori=5tolstep-l:a%(i,a)=a%(i-1,a): 
next 

240 a%(0, a)=a%(5,a) :return 

250 rem ** hoofdprogramma ** 

260 gosubl20:forw=0to20:a=int(5*rnd(1) 

):onl+2*rnd(l)gosub210,230:gosubl7 
0:nextw 

270 geta$:ifa$="s"thengosub340:gosub34 
0:gosub340:sys 65529 

280 gosub450:a=val(a$):ifa$="0"thena=l 
0: 

290 ifa=0then300 

300 ifa>5thena=a-6:gosub230:goto320 
310 a=5-a:gosub210 

320 gosubl70:goto270 

330 rem ** programma ii ** 

340 print"[SHIFT-CLR]":colorO, 1:color4 
, 1 

350 a=3572:k=2548:s=81:pokea, s 

360 forb=ltol0:pokea+b,s:pokea-b,s 
370 pokea-l- (40*b) , s :pokea- (40*b) , s 
380 pokea+ (40*b+b),s:pokea-(40*b-b),s 
390 pokea-(40*b+b),s:pokea+(40*b-b) , s: 
nextb 

400 forkc=ltol5:forb=ltol0:pokek,kc 
410 pokek-l-b, kc:pokek-b, kc 

420 pokek-l-(40*b) ,kc;pokek- (40*b) , kc 
430 pokek+(40*b+b),kc:pokek-(40*b-b),k 
c 

440 pokek-(40*b+b),kc:pokek+(40*b-b),k 
c:nextb;nextkc:return 
450 ifa$="o"thenrestore:gosub340:run70 
460 return 

470 rem ** einde listing ** 

** EINDE LISTING kubus-16** 



170 print"[HOME]";:fori=0to4:forj=lto3 
:print:printspc(10)"[CTRL-9][CRSR- 
RIGHT]";:fork=0to4 


Checksum-getallen op de volgende pagina. 


180 printchr$(a%(i,k));"[3xSPACE] 
xtk,j,i 


return 


190 


: ne 
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Tape Disk 


Richard van Gelder uit Koedijk stuurde ons het vol¬ 
gende programma. Het is een in Basic geschreven 
back-up programma. Hiermee wordt de inhoud van 
een tape naar disk gekopieerd. Vanuit het programma 
wordt de nodige informatie en instructies gegeven. 


10 

rem ****************************** 
**** 

20 

rem * 

•k 

30 

rem * kopieerhulp van tape naar di 
sk * 

40 

rem * voor c-16 & plus/4 

k 

50 

rem * door richard van gelder 

k 

60 

rem * koedijk 
* 

70 

rem * 

80 

rem ****************************** 
**** 

90 

trap330:colorO,2:color4,2,4:x$=chr 
$(34) 

100 

ifpeek(806)=63theny$="quit:":z$="s 
Y1760:":elsey$="end:":z$="" 

110 

print"[SHIFT-CLR][CTRL-9][40xSPACE 
]" 

print"[CTRL-9][CTRL-1]***[2xSPACE] 
kopieerhulp[SPACE]van[SPACE]tape[S 
PACE]naar[SPACE]disk[2xSPACE]***" 

120 

130 

print"[CTRL-9][40xSPACE]" 

140 

print"[5xCRSR-DOWN]een[SPACE]progr 
amma[SPACE]voor[SPACE]het[SPACE]"x 
$"overzetten"x$"[SPACE]van" 

150 

print"[CRSR-DOWN](alle)[SPACE]prog 
rêutana' s [SPACE] van [2xSPACE] tape [SPA 
CE]naar[2xSPACE]disk. 

160 

print"[5xCRSR-DOWN][CTRL-9]1[CTR 

L 0][SPACE]=[SPACE]programma[2xSPA 
CE][CTRL-3]stoppen[CTRL-1][2xSPACE 
]na[SPACE]een[SPACE]laadfout!" 

170 

print"[CRSR-DOWN][CTRL-9]2 [CTRL-0 
][SPACE]=[SPACE]programma[SPACE][ 
CTRL-3]vervolgen[CTRL-1][SPACE]na[ 


SPACE]een[SPACE]laadfout!" 

180 print"[CRSR-DOWN][13xSPACE][CTRL-4 
]maak[SPACE]een[SPACE]keuze[CTRL-1 
]" 

190 getkeya$ 

200 ifa$="l"thenva$="?"+x$+"[2xCRSR-UP 

]helaas!![CTRL-2][CRSR-UP]"+x$+" 

:v08:sOl,50,120:cL":goto220 
210 ifa$="2"thenva$="?"+x$+"[CTRL-2][3 

xCRSR-UP][12xSPACE][CRSR-UP]"+x$+" 
:p01319,19:p0239,10":elsel90 
220 print"[5xCRSR-UP]zet[SPACE]de[SPAC 
E]"x$"randapparatuur"x$"[SPACE]kla 
ar[SPACE]en[SPACE]druk[SPACE]op" 
230 print"[CRSR-DOWN]de[SPACE][CTRL-9] 
spatiebalk.[CTRL-0][SPACE](indie 
n[SPACE]een[SPACE]printer[SPACE]kl 
aar" 

240 print"[CRSR-DOWN]staat,[SPACE]word 
t[SPACE]een[SPACE]inhoudsopgave[SP 
ACE]geprint)." 

250 getkeya$:ifpeek(2038)<>60then250 
260 print"[SHIFT-CLR][CTRL-2]oP4,4:cM4 
:pR4:clO4:gO230":print"[3xCRSR-DOW 
N]clO4:gO240" 

270 print"[CTRL-1][2xCRSR-DOWN][14xSPA 

CE]checking!!!!" 

280 print"[CTRL-2]":directory"x" 

290 ifds=74thenprint"[SHIFT-CLR][2xCRS 
R-DOWN][CTRL-1]geen[SPACE](juiste) 
[SPACE]disk[SPACE]in[SPACE]de[SPAC 
E]drive[SPACE]aanwezig!":gosub360: 
goto250 

300 pokel319,19:fora=0tol0:pokel320+a, 
13:nexta:poke239,10:end 
310 b$="10"+x$+"$"+x$+",8":c$="oP4,4:c 

M4:II:pR4:ol04:coLl,1":goto37 0 
320 b$="?"+x$+"[CRSR-DOWN]":c$="v08:sO 

1,800,200:coLl,1":goto370 
330 ifer=30thenscnclr;end 

340 ifer=5thenprint"[SHIFT-CLR][CTRL-1 
][5XCRSR-DOWN][7xSPACE]diskdrive[S 
PACE]niet[SPACE]gereed!":gosub360: 
resume250 
350 résumé 

360 print"[2 xCRSR-DOWN] [SPACE]maak[SPA 

CE]in[SPACE]orde[SPACE]en[SPACE]dr 
uk[SPACE]op[SPACE]de[SPACE]spatieb 
alk!";return 

370 ifpeek(2044)<>4then400 
380 print"[SHIFT-CLR][CTRL-1][7xCRSR-D 
OWN]druk[SPACE]op[SPACE]de[SPACE]' 
play'[SPACE]toets[SPACE]van[SPACE] 
de[SPACE]datasette" 

390 ifpeek(1)<>192then390:elsecolor0,2 
400 rem **opzetten beeldschermgeheugen 
★ ★ 

410 print"[CTRL-2][SHIFT-CLR]coL4,2,4: 
?tA49)"x$"[CTRL-1][SPACE]on[SPACE] 
tape...[2xSPACE][CTRL-2]"x$; 

420 print":?"x$"[CRSR-DOWN][4xSPACE]sc 
R(f$):end:"x$";?"x$"[CRSR-DOWN]"y$ 
x$":?"x$"[CTRL-1][HOME]"x$":"z$"10 

II 

430 printtab(13)"y"tab(165)x$"[6xSPACE 
][CTRL-1]"x$"d$"x$"[CTRL-2][4xCRSR 
-UP]"x$":coL4,2,4:"b$ 

440 printx$"[13xSPACE]saving[SPACE]on[ 

SPACE]disk[SPACE]:"x$":?"x$"[CTRL- 
2][5XCRSR-DOWN] 
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print-out print-out print-out print-out print-out 


printva$ 

print"i$="x$"[2xSPACE][CTRL-l]spoe 
1[SPACE]de[SPACE]tape[SPACE]terug[ 
SPACE]tot[SPACE]de"x$":?"x$"[2xCRS 
R-UP]" 

print"x$=cH(34):?"x$”[CTRL-2][HOME 
][4xCRSR-D0WN][2xSPACE]f$="x$"x$;? 
"x$"[lOxSPACE]"x$; 

print";?"x$"[CRSR-DOWN]?"x$"x$"x$" 
[5xCRSR-OP][CTRL-1]"x$":?"x$"[CRSR 
-DOWN]i$="x$"x$"x$"[2xSPACE]"x$":? 
"x$"[HOME][CRSR-DOWN]"x$ 
print"r$="x$"[2xSPACE]en[SPACE]laa 
d[SPACE]kopieerhulp[SPACE]opnieuw. 
"x$":?"x$"[2xCRSR-UP]" 
print"iff$<>"x$x$"thendS(f$):else" 

print"f$="x$"naainloos"x$";x=l"; 
print"[4XSPACE];?"x$"[2xCRSR-UP]+" 
x$ "x"; 

print":£$=f$+stR(x):?"x$"[HOME][CT 
RL 9][CTRL-7]"x$"tA206)f$"x$"[CTR 
L 2][4xCRSR-D0WN]" 

print"?"x$"[6XCRSR-UP]"x$"i$"x$"[S 
PACE]'misser!'"x$",r$"x$"[CTRL 
2]"x$":?"x$"[4xCRSR-D0WN]" 
print"[CRSR-DOWN][SxSPACE][COM-4][ 
CTRL-9]*tape*[CTRL-0][COM-8][2xS 
PACE]'kopieerhulp' [2xSPACE] [COM-4] 
[CTRL-9]*disk*[CTRL-0][CTRL-2]" 
print"?"x$"[9xCRSR-UP]r$="x$"x$"x$ 
"[2xSPACE]"x$":?:ifds<20ords=63the 
n"; 

print"p01319,19:p0239,10:new:else? 
tA202)ds"x$"[CRSR-UP]" 
prinf'if[2xSPACE]0=72then"c$" 
print"[COM-8][7xSPACE]richard[SPAC 
E]van[SPACE]gelder,[SPACE]koedijk[ 
CTRL-2]" 


print"d$=ml(ds$,4,(len(ds$)-9)):?" 
x$"[CTRL-1][HOME][2xCRSR-DOWN][2xS 
PACE]scratch[CTRL-2]"x$"tA120)"; 
printx$"?"x$"x$"x$"[CRSR-DOWN][3xS 
PACE]"x$":p01319,19:p0239,10"; 
print"[HOME]":pokel319,19:fork=0to 
10:pokel320+k,13:next:poke239, 10:n 
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REGEL 

10 

35 

REGEL 320 

70 

REGEL 

20 

227 

REGEL 330 

128 

REGEL 

30 

135 

REGEL 340 

174 

REGEL 

40 

205 

REGEL 350 

214 

REGEL 

50 

172 

REGEL 360 

148 

REGEL 

60 

27 

REGEL 370 

59 

REGEL 

70 

227 

REGEL 380 

245 

REGEL 

80 

35 

REGEL 390 

150 

REGEL 

90 

22 

REGEL 400 

22 

REGEL 

100 

17 

REGEL 410 

70 

REGEL 

110 

130 

REGEL 420 

143 

REGEL 

120 

31 

REGEL 430 

57 

REGEL 

130 

239 

REGEL 440 

84 

REGEL 

140 

82 

REGEL 450 

84 

REGEL 

150 

229 

REGEL 460 

47 

REGEL 

160 

157 

REGEL 470 

193 

REGEL 

170 

233 

REGEL 480 

16 

REGEL 

180 

147 

REGEL 490 

173 

REGEL 

190 

255 

REGEL 500 

43 

REGEL 

200 

152 

REGEL 510 

153 

REGEL 

210 

10 

REGEL 520 

182 

REGEL 

220 

171 

REGEL 530 

125 

REGEL 

230 

117 

REGEL 540 

225 

REGEL 

240 

75 

REGEL 550 

163 

REGEL 

250 

172 

REGEL 560 

35 

REGEL 

260 

169 

REGEL 570 

100 

REGEL 

270 

79 

REGEL 580 

250 

REGEL 

280 

166 

REGEL 590 

63 

REGEL 

290 

66 

REGEL 600 

169 

REGEL 

300 

163 , 

REGEL 610 

225 

REGEL 

310' 

29 

REGEL 620 
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prijsvraag 


D e inzendtermijn voor de Commodore Info prijs¬ 
vraag loopt nog tot 15 februari 1988. Stuur dus 
uw Amiga, C-16, C-64 of C-128 programma zo 
snel mogelijk in! 

Voorwaarden: 

* Maximale lengte van het programma: 150 regels. In¬ 
zendingen voor serieuze toepassingen mogen wat lan¬ 
ger zijn. 

* Alleen originele programma’s mogen worden inge¬ 
zonden, de inzender blijft hiervoor verantwoordelijk. In¬ 
zending alleen op magnetisch medium (cassette of 
diskette). 


Categoriën 

1) Commodore C-16, C-64, C-128, Amiga 

2) Hardware-aanpassingen 


Wat is er te winnen? 

* Een kleurenmonitor 

* Een monochrome monitor 

* Een diskdrive 

* Een groot aantal prachtige softwarepakketten. 

N.B. Door inzending stemt men toe in publikatie, ook 
in magnetische vorm. De vergoeding bij plaatsing 
wordt door de redaktie bepaald. Inzenders krijgen na 
ontvangst van hun inzending een lege cassette of dis¬ 
kette toegestuurd, hou dus zelf een kopie van het pro¬ 
gramma. 

Inzendingen: 


l:-64, C-128, Amiga Postbus 112, 1260 AC Blaricum, 

ngen o.v.v. ‘Prijsvraag Commodore’ 

Iedere 10e inzender ontvangt een verrassing! 


Sluitingsdatum: 15 februari 1988 
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Utility 


ƒ 130,- 


Hard Hat 

ƒ 170,- 

Utiiity 

WestCom Ine 

HexDump 


Northwest Machine 

ƒ50,- 

Hex dump utiiities 


I.C.E 


QuicksHver Software 

ƒ 200,- 

Calculator plotter 


ICONizer 


Royal Software 

ƒ75,- 

Ontwerpen van Icons 


Interchange 


Syndesis 

ƒ 520,- 

Converteren van objecten 


Jet Set 


CLtd 

ƒ 100,- 

HP LaserJet plus driver 


Jet Set Font Sets 

CLtd. 

ƒ 125,- 

Fonts voor JetSet 


Keep Track 


The Other Guys 

ƒ 280,- 

Utility 


Key Genie 


Diskcovery 

ƒ130,- 

Utility 


KickWork 

Amigo Business Computers 

ƒ 100,- 

Kickstart/Workbench op een disk 

LTR 


MetaSott Limited 

ƒ 150,- 

Print Utilities 


Laser Fonts 1 


S Anthony Studies 

ƒ 100,- 

Fonts voor LaserWriter 


Laser Utilities i 

S Anthony Studies 

ƒ 100,- 

IFF Files naar Postscript 


LaserUp! 


S Anthony Studies 

ƒ 200,- 

Print het scherm naar LaserWriter 

LaserUpiPiot 


S Anthony Studies 

ƒ 120,- 

Aegis tekeningen naar PostScript 

MagiCode 


Magie Circle 

ƒ70,- 

Vertaalt computer data 


Marauder li 


Discovery Software 

ƒ100,- 

Kopieer programma 


Math-Amation 


Taurus-lmpex 

ƒ 200,- 

Reken Utilities 


MergeMaster 


Megatronics 

ƒ 60,- 

Mail-merge programma 


MicroSheii 


MetaSoft Limited 

ƒ 200,- 

AmigaDOS Interface 


Mirror Hacker Package, the 

Compumed 

ƒ 120,- 

Disk Analyseren 


Mirror, the 


Compumed 

ƒ125,- 

Kopieerdisk 


Newsietter Fonts Voi i 

Inter/Active Software 

ƒ 80,- 

120 verschillende AMIGA fonts 

Outiine! 


PAR Software 

ƒ 120,- 

Utilities 


PED 


MicroDimensions 

ƒ 320,- 

Programeer tekstverwerker 


Printer Drivers 

Tychon Technologies 

ƒ 100,- 

Diverse printer drivers 


Printer tekeningen 

Courbois Software 

ƒ18,- 

Stuurt tekeningen naar de printer 

Professionai Text Engine 

Zirkonics Corp 

ƒ 200,- 

Teksteditor met macro’s 


Programma bestand 

Courbois Software 

ƒ18,- 

Opslaan van een programma bestand 

Quarterback 

Central Coast Software 

ƒ170,- 

Harddisk naar diskette backup 

Quick Nibble 


Copperstate 

ƒ130,- 

Kopieerprogramma 


Sheli 


Metacomco 

ƒ189.- 

AmigaDos interface 



SmartDisk Know Technology 


ƒ150,- Utility 


Software Enhancer Commodore 

ƒ37,- DOS 1.2 voor de Amiga 1000 

Soundshop 

Revolution Software 

ƒ 125,- 

Kreëren van speciale muziektonen 

Studio Fonts Vol 1 

Inter/Active Software 

ƒ 95,- 

Kleurenfonts 

Super Parameters 

Utilities Uniimited 

ƒ 80.- 

Kopieerutilities 

System Monitor 

Zen Software 

ƒ 125,- 

Monitor geheugen en Utilities 

Transformer 

Commodore 

ƒ 200,- 

Vertaalprogramma voor MS DOS 

TxEd 

Microsmiths 

ƒ 100,- 

Programma tekst editor 

Tychon Utiiities 

Tychon Technologies 

ƒ 525,- 

Disk Utilities 

Viditel simulatie 

Courbois Software 

ƒ18,- 

Bestands programma als viditel 

ZING! 

Meridian Software Ine 

ƒ 279,- 

AmigaDos van de workbench 

ZINGiKeys 

Meridian Software Ine 

ƒ 189,- 

Macro Utilities 

Zuma Fonts 1 

Brown Waugh 

ƒ 85,- 

Diverse Fonts 

Zuma Fonts II 

Brown Waugh 

ƒ 85,- 

Diverse Fonts 

Zuma Fonts lil 

Brown Waugh 

ƒ85,- 

Diverse Fonts 


Zakelijk 

ABase Computer Power 

ƒ 280,- Database 


AMT 

ƒ120,- Kostenberekening 

The Other Guys 

Accounting 

ƒ 250,- Boekhoudprogramma 

ComputerWare 

Amiga Scientific Calculator 

ƒ 50,- Uitgebreide rekenmachine 

Deskware 

Analyze! 

ƒ 370,- Grafisch 

Micro Systems 

Analyze 1.0 

ƒ 450,- Berekeningen maken 

Micro Systems 

Arima Techniques 

ƒ 240,- Time-series van Box Jenkins 

LionHeart Press Ine 

BEST Basic Ledger 

ƒ 200,- Grootboek 

B.E.S.T. Ine 

BEST Business Management 2.0 

ƒ 980,- Boekhoudprogramma 

B.E.S.T Ine 

Business Static 

ƒ 350,- Statistiek en boekhouding 

LionHeart Press Ine 

CCI Bottom Liner ClockWork Computers Ine 

f 500,- Boekhoudprogramma 

CCI Integrated Merchandiser ClockWork Computers Ine 

f 1250,- Boekhouding en voorraadadministratie 

Cluster Analysis 

ƒ 280,- Cluster analyses 

LionHeart Press Ine 

Decision Analysis Techniques 

ƒ 340,- Boekhoudprogramma 

LionHeart Press Ine 

Econometrics 

ƒ 360,- Economische berekeningen 

LionHeart Press Ine 

Experimental Statistic 

LionHeart Press Ine 

ƒ 360,- Uitvoeren van statistische bewerkingen 


Exploratory Data Analysis LionHeart Press Ine 
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Uit het grote aantal inzendingen blijkt, dat de Basic Micro’s zich mogen verheugen in 
een behoorlijke populariteit, en dat is voor ons reden genoeg om ook in het nieuwe jaar 
met deze rubriek door te gaan. Ons adres is; Postbus 112,1260 AC, Blaricum. 


Basic Micro’s 

D eze twee pagina’s worden onderhand voor de helft gevuld door een vast aantal "mede¬ 
werkers" in het land. Het lijkt ons echter wel leuk om ook de programma’s van andere ta¬ 
lenten te ontvangen, zodat er wat meer variatie in de namen ontstaat. Vooral van de dames 
ontvangen we nauwelijks iets. Nou is het vrij bekend dat overwegend de heren in computers 
geïnteresseerd zijn, maar er zullen toch wel een paar digitale dames rondlopen? 



Beeldstoring 

Wij ontvingen van Obbe Vermei] uit Capelle aan de IJs- 
sel weer eens twee brieven met enkele Micro’s. We heb¬ 
ben er twee uitgekozen. De eerste veroorzaakt een "sto¬ 
ring" in het beeld, maar dat lijkt ons geen reden om de re¬ 
parateur te bellen. Probeer eens het tweede getal 48 in 
regel 30 te veranderen, en vergeet dan de checksum niet. 

10 FORT=0TO82 ; READP ; C=C-I-P : POKE49152-I-T, P : 

NEXT:IFC=8232THENSYS49153:LIST 

20 DATA112,120,169,19,141,20,3,169,192,1 

41,21,3,169,129,141,26,208,88,96,173 

30 DATA25,208,141,25,208,48,3,76,49,234, 

160,15,162,48,202,208,253,173,22,208 

40 DATA41,240,25,68,192,141,22,208,136,1 

6,237,238,0,192,173,0,192,141,18 

50 DATA208,169,27,141,17,208,76,188,254, 

0 , 1 , 2 , 3 , 4 , 5 , 6 , 7 , 7 , 6 , 5 , 4 , 3 , 2 , 1,0 

De tweede is een antwoord op de oproep voor niet-grafi- 
sche Micro’s, het getal e (2.7182818284590452353...) 
wordt er namelijk door benaderd. Dat kan met: e = 1/0! + 
1/1! + 1/2! -I- 1/3! + 1/4! -i- 1/5! -i- ... 

10 E=1: y=l: F0RT=1T015 : Y=y*T : E=E-I-1/Y: PRIN 
TE:NEXT 

Smooth-scroll-regel 

Als eigen bijdrage dit keer een letterlijk flitsende smooth- 
scroll demo voor de C-64, zonder geheimzinnige machi¬ 
netaal. Tik maar in en verwijder vervolgens willekeurig 
een van de drie REM-opdrachten die vooraan de regels 
50 tot en met 70 staan. Vergeet dit niet, anders krijg je 
een ‘?syntax error in 80’. Deze regels bepalen de kleuren 
die je krijgt. 

10 DIMC$(7):FORT=0TO7:READC:C$(T)=CHR$(1 
9)-l-CHR$(C) :NEXT:FORT=0TO2:READA$ 

20 B$=B$+A$;NEXT;F0RT=1T013;B$=" "+B$+ 

" ":NEXT:POKE53280,0:POKE53281,0 

30 PRINTCHR$(147):FORA=lTOLEN (B$) -39;N$= 
MID$ (B$, A,40);FORT=0TO7:PRINTC$(T)N$ 

40 POKE52370,199-T;NEXTT,A;GOTO30 
50 REMDATA144,151,152,155,5,155,152,151 
60 REMDATA144,28,129,158, 5, 158, 129, 28 


70 REMDATA144,31,154,159, 5, 159, 154,31 
80 DATA"DIT IS EEN LEUKE SMOOTH-SCROLL-R 
EGEL, DIE MET SIMPELE " 

90 DATA"MIDDELEN IS TE MAKEN. HET IS NOO 
DZAKELIJK DAT DE EERSTE " 

100 DATA"KLEUR HETZELFDE IS ALS DIE VAN 
HET SCHERM, ANDERS VERSPRINGT ALLES." 

Je kunt ook nog een regel tussen 20 en 30 toevoegen die 
eerst het hele scherm vult met hetzelfde karakter, zodat 
alles naar links gaat ‘scrollen’. Verwijder dan wel de 
PRINTCHR$(147) in regel 30. 

Amiga 

We werden door David Vanhove uit Maaseik-Neeroete- 
ren (België) geattendeerd op een fout in de vorige uitga¬ 
ve in een listing voor de Amiga, die alweer te wijten is aan 
onzorgvuldig overtikken. In de eerste Micro moet de twee¬ 
de regel er als volgt uitzien: 

WINDOW 2, "Cirkels", (160,0)-(320,100),0,1 

Stuurden Ron en Kim Brobbel uit Vlaardingen de vorige 
keer nog een Micro in voor de C-64, nu doen ze het voor 
de Amiga. Het is een klein tekenprogramma in Amiga-Ba- 
sic. De besturing gaat met de muis en de linker muisknop. 
Eerst moet je een kleur kiezen, daarna kun je links gaan 
tekenen, en alles verschijnt rechts in het klein. Probeer 
ook eens de waardes van D en G te veranderen. 

Denk eraan dat je je niets moet aantrekken van de hier 
gebruikte regellengte van 40 karakters! 

SCREEN 1,640,512,4,4:WINDOW 1,"RAK SOFTW 

ARE 1987",,0,1:G=5:D=525 

FOR X=0 TO D STEP G:LINE (X, 0) - (X, 500) , 8 

:NEXT 

FOR Y=0 TO 500 STEP G. LINE (0, Y) - (D, Y) , 8 
:NEXT 

FOR Y=0 TO 15.LINE (D+1,Y*20)-(632,Y*20+ 
20),Y,BF:NEXT 

PALETTE 0,0,0,0:PALETTE 1,1,.9,.3 
RAK; 

S=MOUSE(0):X=INT(MOUSE(1)/G):Y=INT(MOUSE 
(2)/G);IF S=0 THEN RAK 

IF X>INT(D/G-1) AND Y<INT(320/G) THEN GO 


6S 
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SUB KLEUR 

IF X>INT(D/G-1) THEN RAK 
PRESET (D+l+X,340+Y),K 

X=X*G:Y=Y*G:LINE (X+1,Y+1)-(X+G-1,Y+G-1) 

,K,BF:GOTO RAK 

KLEUR; 

K=INT(MOUSE(2)/10):LINE (D+l,460)-(632,5 
00),K,BF:RETURN 

Karakterset 

Het verplaatsen van de karakterset van de C-64 is met 
Basic een langdurig proces. Bovendien is het voor gebrui¬ 
kers van de Power Cartridge niet mogelijk om dit te doen 
zonder vooraf QUIT in te tikken of het ding er gewoon uit 
te trekken. Machinetaal biedt hier de oplossing. Coen An- 
tens uit Rucphen schreef een routine die de karakterset 
snel en probleemloos kopiëert naar de adressen vanaf 
8192. Je kunt de routine in vrijwel elk programma opne¬ 
men. 

10 FORI=0TO47:READQ:POKE49152+I, Q:C=C+Q: 
NEXT:IFC=6026THENSYS49152:PRINT"OK" 

20 DATA169,208,141,21,192,169,32,141,24, 
192,120,169,51,133,1,162,16,160,0,185,0 
30 DATA224,153,0,48,200,208,247,238,21,1 
92,238,24,192,202,208,236,169,55,133,1 
40 DATA88,169,25,141,24,208,96 

Bij wijze van voorbeeld volgt hier hoe het sterretje uit de 
eerste karakterset veranderd kan worden in een copy- 
right-teken. 

50 FORI=0TO7 : READQ: POKE8192+42*8-l-I, Q:NEX 
T:LIST:DATA60,66,153,161,161,153, 66, 60 

Algemeen geldt dat de 8 getallen die een karakter defi¬ 
niëren volgen op een adres dat als volgt bepaald wordt: 
adres = beginwaarde + schermcode * 8. De beginwaarde 
is hier dus 8192 voor de eerste karakterset, en 10240 voor 
de tweede. De schermcodes zijn te vinden in de diverse 
handboeken. 

Naamtoren 

Van Mark Weyn uit Nieuw-Namen ontvingen we een 
briefje met een Micro genaamd Naamtoren, die een 
woord of zin pyramide-vormig afdrukt. Het programma 
was hier en daar onnodig ingewikkeld, en hier staat onze 
aangepaste versie. 

Een heel ander effect krijg je als je tussen PRINT en TAB 
in regel 20 ook nog CHR$(19) zet. 

10 PRINTCHR$(147);INPUT"NAAM OF ZIN";A$: 
X=LEN (A$) /2 : B=INT (X-H . 5) : PRINTCHR$ (147) 

20 C=2*(INT(X)-X):FORI=OTOB-1:PRINTTAB(B 
-I-l)MID$(A$,B-I,2*I+2+C);NEXT 

Wie dit programma wil aanpassen voor een IBM-compa- 
tibele met GW-Basic moet de TAB(B-I-I) veranderen in 


TAB(B-I), omdat met GW-Basic TAB(O) hetzelfde effect 
heeft als TAB(1). 

Ellipsen 

Patrick van Oostrom uit Utrecht stuurde een Micro voor 
de C-128 in die een uit ellipsen opgebouwde cirkel tekent. 

10 COLORO,1:COLOR4,1:GRAPHICl,1:FORA=2TO 
16;COLORl,A;FORI=0TO500STEP25 
20 CIRCLEl,140,100,100,10,I,I,I:NEXTI,A: 
SLEEP1:GRAPHIC0,1 

Box-opdracht 

Eveneens voor de C-128 zijn enkele Micro’s die we nog 
hadden liggen van Bernard Hudepohl uit Lelystad. Hij 
maakt gebruik van de veelzijdige opdracht BOX. 

10 COLORO,1:COLOR4,1:GRAPHICl,1:FORX=OTO 
110STEP3:BOX1,90,X,210,110:NEXT 
20 FORY=0TO360STEP3:B0X1,90,X,210,110,Y: 
NEXT 

10 COLORO,1:COLOR4,1:GRAPHICl,1:FORX=OTO 
180STEP3:IFX=90THENSLEEP3 
20 BOXl,90,90,210,110,X:NEXT 

Motor Racing met de C-16 

Achterop een briefkaart kan het ook, moet R. Vletter uit 
Vlaardingen gedacht hebben. Motor Racing is de naam 
van deze Micro, die vooral geluid produceert. 

10 SCNCLR:COLORO,1:COLOR4,1:COLORl, 2:VOL 
5:T=90 

20 J=JOY (1) ; SOUND3, T, 5 : IF J=lTHENT=T-l-9 : IF 
T>891THENT=891 

30 IFJ=5THENT=T-9:IFT<90THENT=90 
40 PRINTTAB(14)CHR$(19)T/9" KM/H":GOTO20 

Diskette-naam 

Met het volgende programma voor de C-64, ingestuurd 
door Michel Fidder uit Barendrecht, kun je de naam van 
een diskette veranderen. 

10 CLR:POKE53280,0:POKE53281,0:PRINTCHR$ 
(147):PRINT"DISK NAME CHANGEPRINT 
20 OPEN15,8,15,"I"rOPENl,8,2,"#":PRINT#1 
5,"UI:";2;0;18;0:PRINT#15,"B-P";2;144 
30 A$=" ":IFA=OTHENINPUT" 

TYPE THE NEW NAME";B$ 

40 B$=LEFT$(B$+A$,16):F0RI=1T016:PRINT#1 
,MID$(B$,I,1);:NEXT 

50 PRINT#15,"U2:";2;0;18;0:CLOSE15:CLOSE 
1:IFA=1THENRETURN 

60 A=1:GOSUB20:INPUT"ONE MORE TIME";I$:I 
FI$="Y"THENRUN 

Peter Broekhuizen 
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Abacus 

Het Amerikaanse softwarebedrijf 
Abacus komt met een aantal soft¬ 
warepakketten en boeken voor de 
Amiga op de markt. 

Textpro is een makkelijk te gebruiken 
tekstverwerkingsprogramma. Het 
heeft een automatische afbreekrouti- 
ne. Grafische elementen kunnen in de 
tekst opgenomen worden.In aanvul¬ 
ling op de pull-down menus heeft de 


meer ervaren gebruiker ook de be¬ 
schikking over tal van keyboard com¬ 
mando’s. 

De verkoopprijs ligt in de VS op $80. 
De professionele tegenhanger van 
Textpro is BeckerText. Naast de stan¬ 
daardopties, die ook te vinden zijn bij 
de meeste wordprocessors, is hier 
ook WYSIWYG formattering mogelijk. 
Grafieken kunnen in de tekst weerge¬ 
geven worden. BeckerText komt in fe¬ 
bruari beschikbaar en gaat rond de 


150 dollar kosten. 

DataRetrieve is een data base mana¬ 
ger. DataRetrieve kan datavelden in 
verschillende stijlen en groottes weer¬ 
geven, kan records tot 64000 tekens 
hanteren, verwerkt numerieke waar¬ 
den tot 15 getallen. Prijs ongeveer 
$80. 

Assem Pro is een machinetaalpakket, 
speciaal ontwikkeld voor de Amiga 
gebruiker. Amiga programma’s kun¬ 
nen ermee in snelle machinetaal ge- 


Duikbootsimulatie voor de Amiga 


Klaar voor onder water! 

Als je wel eens een oorlogsfilm hebt gezien waarin een 
duikboot een belangrijke rol speelt dan zul je de geluiden 
die typisch bij zo’n boot horen niet snel vergeten. De ang¬ 
stige spanning die wordt veroorzaakt door volkomen stilte. 
Alleen zo af en toe een zacht ‘ping’, ‘ping’... van de sonar 
van een destroyer die naar je op zoek is. Helemaal beroert 
word je als het aanzwellende motorgeluid van de duikboot- 
bestrijder pakweg 60 meter boven de duikboot stopt. 
Meestal kun je even later de dreunende klappen van de 
dieptebommen verwachten. En meestal kun je dan ook je 
maatjes voor de laatste keer vaarwel zeggen. 

Je weet niet wat je meemaakt, als je 
de eerste keer probeert zo diep mo¬ 
gelijk onder water te verdwijnen om 
aan de wraak van een half verwoest 
konvooi te ontkomen. Net heb je 
drie schepen van een Japans kon¬ 
vooi naar de zeebodem geholpen of 
er maakt zich een duikboot-bestrij- 
dingsvaartuig uit de resten van het 
scheeps-konvooi los. Met verba¬ 
zingwekkende snelheid komt dit tot 
de tanden gewapende vaartuig 
recht op je af. Bijna dertig knopen 
snelheid staan er tegenover jouw 
twintig. En als je duikt ben je zelfs 
niet sneller dan tien knopen. 

Hoe dan wel te ontkomen? Of ge¬ 
woon het boordkanon gebruiken en 
de strijd manmoedig aangaan? Dat 
kun je het beste zelf uitzoeken in 
deze prima duikboot-simulatie Sl- 
LENT SERVICE van MicroProse. 

Dit zeer populaire spel is er nu ook voor de Amiga 500. Vele 
situaties die zich in de tweede wereldoorlog hebben voor¬ 
gedaan kun je met deze simulator 'naspelen’. Een span¬ 
nend onderdeel van dit spel is de patrouille over de Pacific 
oceaan. 

Plotseling licht het scherm rood op ten teken dat je ‘op de 
vijand’ bent gestoten. Het spel van stil besluipen, wachten, 
langzaarri naderen en beschieten kan beginnen. De nage¬ 
bootste situaties gaan aliemaal over de grote successen 
die de Amerikanen met hun duikboten op de Japanse vloot 
behaalden. Wie de eerste keer als captain de motoren van 
deze submarine laat starten moet voorlopig op hele grote 
verliezen rekenen. ^ ^ ^ 


Verlaat de brug ! 

Ook een duikboot-simulatie voor de Amiga 500, maar veel 
en veel moeilijker, is THE HUNT FOR RED OCTOBER van 
Argus Press Software. Een zenuwslopende tocht van de 
allernieuwste Russische duikboot Red October. Het ver¬ 
haal bij deze simulator is prachtig. 

Als kapitein van deze superstille, met de nieuwste (nucle¬ 
aire) motoren en een ongelooflijk goed verdedigingssys¬ 
teem uitgeruste duikboot, besluit je naar Amerika te varen. 
Verraad dus! Het is alleen heel vervelend datje dat nog niet 
direct aan de Amerikaanse marine kunt duidelijk maken. Je 
vaart nog midden tussen de Russische schepen. Het is niet 
te verwachten dat deze positief 
zullen reageren als je zomaar 
koers zet naar de US. Om over de 
honderd-koppige bemanning die 
je aan boord hebt nog maar te 
zwijgen. Aan de andere kant mag 
je ook niet verwachten dat de 
Amerikaanse vloot met open ar¬ 
men een zwaar bewapende Rus¬ 
sische duikboot hun kust zullen 
laten naderen. Problemen dus. 
Het is dus zaak je boot eerst on¬ 
opgemerkt door het netwerk van 
afluisterapparatuur (van de 
NATO) te sturen. Vervolgens 
moet je, zonder argwaan bij je na- 
vigatie-officier en de bemanning 
te wekken, richting Amerika va¬ 
ren. Intussen blijf je natuurlijk ver 
van eventuele Russische potten¬ 
kijkers, die de opdracht hebben 
koste wat kost te voorkomen dat 
hun paradepaardje in ‘verkeerde’ handen valt. Als laatste 
moet je de Amerikanen overtuigen van je goede bedoelin¬ 
gen. 

Zoek je weg op prachtig getekende zeekaarten en hou 
vooral rekening met de daarop in beeld gebrachte 
(on)diepten. Heb ik het al over mijnen gehad? 

Beide spellen zijn in Nederland uitgebracht door Homesoft 
^l^elux in Haarlem en kosten respectievelijk 89 en 79 gul- 

Rob Timmer 
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schreven worden. Prijs zo’n $100. 

In februari komen van Abacus enkele 
Amiga boeken uit. 

‘Amiga BASIC-Inside &Out’ is een 
gids voor het programmeren in Basic. 
Alle commando’s staan beschreven 
en onderwerpen als graphics, muziek, 
file management komen uitgebreid 
aan de orde. In het boek zijn diverse 
programma’s opgenomen, zoals vi- 
deotitels, grafieken voor statistische 
weergave van gegevens, vensters, 
bestandsbeheer en geluidssynthese. 
Het boek telt 550 pagina’s. ISBN 0- 
916439-88-9. 

‘Amiga Tricks & Tips’ is een collectie 
kleine programma’s. De lezer kan met 
de beschreven technieken de Amiga 
mogelijkheden uitgebreid benutten. 
Aan de orde komen Amiga Basic en 
C, gebruik van CLI, DOS en de disk 
drive, programmeren van graphics 
met behulp van vensters en menu’s, 
etc. 


275 pag. ISBN 0-916439-86-7. 
‘Amiga for Beginners’ is een introduk- 
tie in het gebruik van Intuition, de 
muis, de CLI en Amiga Basic. 200 
pag. ISBN 1-55755-021-2. 

‘Amiga Machine Language’ is een 
praktische gids voor iedereen die de 
Amiga programmeert in snelle machi¬ 
netaal. Opgenomen is een beschrij¬ 
ving van de 68000 processor, modes 
en instructieset. Verder nog aandacht 
voor Amiga libraries voor het gebruik 
van AmigaDOS, Intuition en geluids¬ 
mogelijkheden. 

Tekenen en animatie 

Anakin Research Ine. uit Toronto 
heeft een tekentablet voor de Amiga 
500 en 2000 uitgebracht. Het bedrijf is 
gespecialiseerd in soft touch toepas¬ 
singen, handschrift invoer en handte¬ 
kening herkenning. Met het drukge- 
voelige tekentablet ‘Easyl’ kunnen op 


papier gezette tekeningen worden 
overgenomen en in de Amiga worden 
gevoerd. Anakin Research is ook be¬ 
zig voor Amiga soft-touch control-pro- 
gramma’s te ontwikkelen voor databa¬ 
se-, spreadsheet-, CAD- en graphic- 
programma’s. 

Byte by Byte uit Austin komt met een 
zeer krachtig drie-dimensionaal ani¬ 
matie programma. Met ‘Sculp-3D’ 
kunnen de animaties worden ge¬ 
maakt, met schaduw en al, met ‘Ani- 
mate 3D’ kan de beweging worden 
opgezet. Het hele pakket kost onge¬ 
veer 250 dollar. Sculp-3D is ook los te 
gebruiken en kost 100 dollar. Ook 
heeft het bedrijf Byte by Byte een 
’Byte Box’ ontworpen. De externe ge¬ 
heugen uitbreiding voor de Amiga 500 
kan met deze box oplopen tot 2 Me- 
gayBte. Die laatste uitbreiding kost 
dan wel 700 dollar. 



SETTLE LIGHT SOFT’S 

DAMMEN 

Eindelijk een tegenstander op niveau! 

★ Nederlandse handleiding met regels en taktische tips 

★ demonstratie-partijen 

★ invoeren van zetten met toetsen, cursor of joystick 

★ terugnemen van vorige, zet 

★ zelf opzetten van standen 

★ computer speelt zwart of wit 

★ spiegelen van bestaande stand 


In de betere computershop voor 

ƒ 37,50 (cassette) 
ƒ 45,— (diskette) 


incl. BTW 
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In deze serie lessen wordt aan de lezer stap voor stap een entree geboden in de we¬ 
reld van de Basic-programma’s. We zijn 19 afleveringen terug begonnen met de meest 
eenvoudige Basic-opdrachten, maar zo simpel is het inmiddels niet meer. Toch kan 
ook de minder ervaren computerbezitter rustig aan deze cursus meedoen. De pro¬ 
gramma’s zijn allemaal voorzien van een duidelijke uitleg en instructie, waardoor er 
niet alleen een aardig stuk software wordt gebouwd, maar ook nog het één en ander 
kan worden geleerd. Deze aflevering gaat over bepaalde Basic-opdrachten in verband 
met de verwerking van strings. 


Basis Basic 

Deel 19: Strings (1) 

E en belangrijk onderdeel van het hele werken met de Basic interprater 
wordt gevormd door ‘strings’, of wat we voor het gemak ‘alfanumerieke 
gegevens’ noemen. Deze data hebben in het gebruik zowei voor- als nade¬ 
len, maar een goed programma zal altijd gedeeltelijk bestaan uit string- 
handling. We gaan in deze aflevering wat dieper in op bepaaide Basic-op¬ 
drachten, die specifiek voor string-afhandeling zijn bedoeld. 


m 
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95 

SPACE 

1 

96 

c 
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H 


98 

n 


99 

□ 


100 

□ 
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Database 

De laatste afleveringen zijn we nogal 
druk in de weer geweest de laatste 
hand te leggen aan onze eigen data¬ 
base. Dat dit een redelijk succes is ge¬ 
worden blijkt uit de reacties van lezers 
die ons verblijden met diverse verbe¬ 
teringen en alle denkbare uitbreidin¬ 
gen op de oorspronkelijke listing. 
Hoewel we zeer tevreden zijn over het 
welslagen van dit project, geven we 
onmiddellijk toe, dat er natuurlijk tallo¬ 
ze varianten zijn te bedenken op de 
wijze waarop wij dit database pro¬ 
bleem hebben aangepakt. De manier 
waarop de verschillende subroutines 
zijn geschreven is echter in eerste in¬ 
stantie bedoeld, om ook de wat min¬ 
der ervaren programmeurs inzicht te 
geven in de opbouw en afwerking van 
een programma. Zeker waar het in¬ 
kortingen betreft zal onze database tot 
60 procent van de huidige grootte zijn 
terug te brengen. Maar daar gaat het 
niet om. Wel zullen we op de redactie 
bekijken, of er in de toekomst niet een 
speciale aflevering in deze cursus kan 
worden gewijd aan alle door de lezers 
bedachte varianten. 

We nodigen daartoe iedereen uit, zijn 
gewijzigde of eigen routines in te stu¬ 
ren die betrekking hebben op onze 
Commodore-Info databasic listing. 
Mettertijd kunnen we dan hopelijk kie¬ 
zen uit een serie van de meest uiteen¬ 
lopende routines. In ieder geval alvast 
hartelijk dank voor de medewerking. 



Strings 

Het fenomeen ‘string’ zal aan iedere 
(Basic)programmeur bekend zijn. 
Zelfs de eerste programma’s in alle 
Basic-boeken beginnen met de ver¬ 
werking van een string. 

10 REM TESTPROGRAMMA 
20 PRINT "HALLO" 

30 END 


Dit is voor wie dan ook gesneden 
koek. Toch zit er aan een string, en de 
afhandeling van deze data nogal wat 
extra werk voor de computer. Hoewel 
we dat als programmeur niet altijd in 
de gaten hebben, bezorgen we onze 
machine heel wat last, als we een op¬ 
dracht als deze laten uitvoeren. Voor 
alle duidelijkheid zullen we eerst wat 
nader ingaan op wat een string nu in 
feite is. 


Een string is een array van By¬ 
tes, waarvan de inhoud bestaat 
uit een verzameling ASCII-te- 
kens (of karakters) die in de 
computer worden behandeld en 
verwerkt als statische data. 


Voor de Basic-programmeur is een 
string niet anders dan een serie karak¬ 
ters die bij elkaar horen. Voor iedere 
tekst die op scherm of printer wordt 
gedumpt, gebruiken we strings. De 
stringvariabele in Basic wordt daarbij 
onderscheiden van alle andere types 
variabelen, door het dollarteken ($) 
achter de naam te plaatsen. 

Wat betreft consistentie is gek genoeg 
de ouderwetse Atari-Basic de beste 
volger van de originele filosofie. Daar 
moeten de te gebruiken strings vooraf 
worden gedeclareerd, compleet met 
(maximum) lengte en worden ze ook 
werkelijk behandeld als een array. Dit 
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vinden we ook terug bij talen als bij¬ 
voorbeeld ‘C’ en C-I-I-. ’t Is even wen¬ 
nen, maar daana gemakkelijk en effi¬ 
ciënt in het gebruik. 

Voor de Commodore gelden andere 
regels, die op zich als standaard Ba- 
sic-regels voor strings kunnen worden 
beschouwd. Variabelen als A$, B1$, 
A$(3,5), NAAM$(2) enzovoort zijn vol¬ 
ledig acceptabel voor de Commodore 
machines. 

Ten opzichte van de numerieke data 
is het zo, dat het merendeel van de 
(Basic) operaties die op numerieke 
variabelen en konstanten kan worden 
uitgevoerd ook van toepassing is op 
het werken met strings. Zo maakt het 
voor opdrachten als READ, INPUT, 
PRINT, LET niets uit, of we er een 
floating-point-, integer- of string-naam 
achter plaatsen. Het is in het laatste 
geval zelfs zo, dat ook numerieke data 
door stringvariabelen kunnen worden 
verwerkt. 

Laten we daarvoor het volgende pro¬ 
gramma bekijken: 

10 REM LEZEN NUMERIEK (FLP) 

100 FORI = 0TO10 

120 READA 

130 PRINT A 

140 NEXT 

200 END 

500 REM DATA DATA 

510 DATA 123,-444,12, 2225, 65465 

520 DATA 200,500,-32770,0,544,777 

Tot zover zullen we geen problemen 
ontmoeten tijdens het runnen van de¬ 
ze iisting. 

Gaan we echter in dit programma het 
één en ander wijzigen, dan genereren 
we daarmee een probleem. Kijk maar 
eens naar de volgende, kleine ‘aan¬ 
passing’: 

10 REM LEZEN NUMERIEK (INT) 
100 FORI = 0TO10 
120 READA% 

130 PRINT A% 

140 NEXT 
200 END 

500 REM DATA DATA 

510 DATA 123,-444,12, 2225, 65465 

520 DATA 200,500,-32770,0,544,777 

De kenners zullen onmiddelijk het 
hangijzer ontdekken, waarop dit pro¬ 
gramma vastloopt. Het is namelijk on¬ 
mogelijk in een integer variabele (A%) 
een getal in te lezen dat groter Is dan 
256*256/2=32767 of kleiner dan 
32768. En in de dataregels 510 en 
520 treffen we deze getallen aan. Een 
zelfde verschijnsel valt te genereren 


bij de eerste listing, door daar de da¬ 
taregels enigszins te wijzigen: 

500 REM DATA DATA 
510 DATA 123,"-444",12, ABC, 
65465 

520 DATA200,500,"32770",0, 
44,777 

Bij het runnen zullen we nu vrijwel on¬ 
middellijk een ‘DATA TYPE MIS¬ 
MATCH’ ontmoeten, omdat we probe¬ 
ren in de variabele A een string in te 
lezen met de inhoud "-444". Daarbij 
geven de aanhalingstekens aan, dat 
het in dit geval een string betreft. Ook 
de datacomponenten "ABC" en 
"-32770" zullen een identieke fout op¬ 
roepen in de Commodore. 

De oplossing hiervoor ligt in de vol¬ 
gende listing, waarbij alles in strings 
wordt ingelezen: 

10 REM LEZEN STRINGS 
100 FORI = 0TO10 
120 READA$ 

130 PRINT A$ 

140 NEXT 
200 END 

500 REM DATA DATA 

510 DATA 123,-444,12, 2225, 65465 

520 DATA 200,500,-32770,0,544 

Wat daarbij het meest opvalt, is het 
feit, dat het niet direct nodig is, om 
aanhalingstekens te gebruiken in de 
DATA-regels. Iets anders is, dat de 
‘getallen’, zoals we ze in A$ inlezen, 
niet kunnen worden verwerkt als ech¬ 
te getallen. We kunnen met deze 
strings niet veel meer doen, dan al¬ 
leen printen. 

Maar er bestaan uiteraard nogal wat 
opdrachten om meer te kunnen doen 
met deze string-variabelen. 

String-data 

In het voorgaande hebben we kunnen 
zien, dat het niet direct nodig is, om 
dataregels, die als stringvariabelen 
worden verwerkt, te voorzien van aan¬ 
halingstekens. Data uit een hypotheti¬ 
sche database als: 

500 DATA HARRY,12,3,Telex,12345 
510 DATA SANDRA,6,89, 
Telefoon,54321 
520 DATA MARLOES, 11,64, 
Telefax,77346 

zullen keurig worden verwerkt, on¬ 
danks het ontbreken van de aanha¬ 
lingstekens. Anders ligt dit, als be¬ 
paalde gegevens in de string bijvoor¬ 


beeld moeten worden geformatteerd. 
We willen bijvoorbeeld een fraaie uit- 
lijsting maken, waarbij alle strings 
evenlang moeten zijn. Hoewel er tij¬ 
dens het printen mogelijkheden be¬ 
staan dit in één regel te kunnen doen, 
willen we de rudimentaire manier niet 
overslaan: 

500 DATA"HARRY 12"," 
3","Telex "," 12345" 

510 DATA "SANDRA "," 6"," 
89","Telefoon 54321" 

520 DATA "MARLOES 11"," 
64","Telefax "," 77342" 

In proportionele druk, zoals in dit blad, 
is het moeilijk om de juiste spatiëring 
te tonen, maar de bedoeling zal duide¬ 
lijk zijn. Alle verschillende DATA-stuk- 
jes hebben per groep dezelfde lengte. 
Om dit te bewerken moet de data tus¬ 
sen aanhalingstekens worden gezet. 
Ook als er sprake is van bijvoorbeeld 
komma’s in de data zelf is het nodig 
de string tussen aanhalingstekens te 
zetten. 


LEN 

We hebben het al even over de leng¬ 
te gehad, van een string. De tekst 
"ABCDEFG" is welgeteld 7 karakters 
lang. We kunnen dit eenvoudig vast¬ 
stellen, door de afzonderlijke karak¬ 
ters te tellen. Het toekennen van deze 
string aan een variabele is niet moei¬ 
lijk: 

10 A$="ABCDEFG" 

Bij de computer ligt het bepalen van 
de lengte van een string wat anders. 
We moeten een functie gebruiken om 
dit te kunnen doen. Deze functie heeft 
de naam LEN. Zoals bekend bestaat 
er verschil tussen een functie en een 
opdracht. LEN als functie heeft altijd 
een Basicopdracht of variabele nodig 
om in Basic te kunnen worden 
geïmplementeerd: 

20 LEN(A$) 

zal op een Syntax error vastlopen, in 
tegensterlling tot: 

20 A = LEN(A$) of 

20 PRINT LEN(A$) 

In ons geval krijgen we bij LEN voor 
"ABCDEFG" in variabele A de waarde 
7 (let er op dat de aanhalinggestekens 
niet worden meegeteld). 
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Computerspelletjes winnen nog steeds 
aan populariteit. Dat blijkt ook uit het 
spelprogramma ‘It’s all in the Game’ van 
de NCRV. Een uniek samenwerkings- 
projekt gaat er nu voor zorgen, dat de 
TV-games uit dat programma ook thuis 
kunnen worden gespeeld. 

It’s all in the 
Game 

Presentator Henk Mouwe met enkele kandidaten. 


D e NCRV, René Stokvis Produkties en Sala Communications hebben ge¬ 
meenschappelijk een uniek projekt opgezet. De computergames, die dit 
spelprogramma de revue zullen passeren, kunnen op diskette besteld wor¬ 
den, waardoor de kijkers nu ook zelf aktief met de spelletjes ‘in de slag’ kun¬ 
nen. 


It’s All in the Game is vanaf dit seizoen 
elke maand op maandagavond te zien 
na het journaal van acht uur. Presen¬ 
tator Henk Mouwe test dan de behen¬ 
digheid van een achttal kandidaten (in 
twee teams) op het gebied van com¬ 
puterspelletjes. De formule blijkt uit¬ 
stekend aan te slaan getuige de kijk¬ 
cijfers. 

Thuis spelen 

Om meer mensen de mogeijkheid te 
bieden de spelletjes te spelen, is nu 
besloten de games ook op een disket¬ 
te uit te brengen. In overleg met René 
Stokvis Produkties (de bedenkers van 
dit programma) en de NCRV zal Sala 
Communications (uitgever van diver¬ 
se computer-magazines, waaronder 
Commodore Info) de produktie en ver¬ 
koop van diskettes gaan verzorgen. 
Zo kunnen ook de thuisblijvers en de 
fervente computergame-spelers hun 
eigen kwaliteiten testen met dezelfde 
spelletjes als in de programma’s aan 
de orde zullen komen. 


Diskettl I (Alleen voor C-64/128) 

Op de eerste diskette staan de vol¬ 
gende spelletjes: 

° Balletje de Luxe 
één balletje, zes dopjes, en maar 
raden... 

° Schuif Schuif 

3 logo’s, 8 dopjes. Schuiven in een 
oogwenk. 

° Medeklinkers 

16 cotegorieën, vele honderden 
woorden, maar... géén medeklin¬ 
kers! 


Aanvragen 

Bestellen van de diskettes met daarop 
de games kan eenvoudig door ƒ19,95 
over te maken op gironummer 158549 
t.v.n. Sala Communications te Am¬ 
sterdam met vermelding: ‘It’s all in the 
game’. U kunt ook een girobetaalkaart 


opsturen naar Postbus 5570, 1007 AN 
Amsterdam (ook hierop niet vergeten te 
zeggen, welke diskette u wilt ont¬ 
vangen). 

Natuurlijk kunt u voor al deze infor¬ 
matie ook naar het programma kijken, 
dan heeft u dubbel plezieri 
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De maximum lengte voor een string bij 
de Commodores ligt op 256 karakters. 
Op zichzelf is LEN een hele simpele 
functie, waar we echter in de Commo¬ 
dore zeker niet zonder kunnen. Daar¬ 
naast is het ook leuk te bekijken wel¬ 
ke eigenaardigheden we met LEN 
kunnen uithalen. Voor de echte pro¬ 
grammeur zeker nuttig hier wat beter 
naar te kijken: 

10 REM LEN SPELERIJ 
100 PRINT LEN("HALLO") 

110 A$="JAN" 

120 B$="PIET" 

130 PRINT LEN(A$) 

140 PRINT LEN(A$+B$) 

150 PRINT LEN(A$)+3 
160 PRINT SPC(20 - LEN(A$));A$ : 

REM RECHTS UITLIJNEN 
180 PRINT TAB(80 ■ LEN(A$+" 
"+B$)/2);A$;" ";B$: REM 
CENTREREN PRINTER 
190 : 

200 IF (LEN(A$)) 10 THEN PRINT 
"Maximaal 10 karakters" 

Als laatste een kontroleprogramma op 
bepaalde kodes, waarvan er één door 
de gebruiker moet worden ingetypt: 

10 REM KODE-TEST 
15 OK=0 
20 C$="#$%@&" 

30 FOR X = 1 TO LEN(C$) 

40 IF G$=MID${C$,X,1) THEN OK= 
1 : X = LEN(C$) 

50 NEXT X 
60 RETURN OK 

Deze laatste routine kan worden inge¬ 
past in een hoofdprogramma, waarbij 
de regel GET G$ als statement moet 
voorkomen. Vervolgens een verwij¬ 
zing naar deze routine, met daarnaast 
de test op de waarde van OK. Voor¬ 
deel hierbij is dat codestring C$ onei- 
dig kan worden uitgebreid, zonder 
verder het programma te hoeven wij¬ 
zigen. Daarom wordt de lusvariabele 
X ook uitgerekend aan de hand van de 
lengte van C$, en niet als konstante in 
de listing gezet. Over de functie MID$ 
zullen we het verderop nog hebben. 
Een eigenaardigheid bij LEN() zit in de 
manier waarop de lengte werkelijk be¬ 
rekend wordt. We geven daarvoor het 
volgende voorbeeld: 

10 A$="ABCDEFG" 

20 FORI = 0tOl0 

30 A$ = A$ + CHR$(0) 

40 NEXT 

50 PRINT A$ 

60 PRINT LEN(A$) 
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Als A$ zien we uitsluitend "ABCDE 
FG" op het scherm, 7 karakters dus, 
maar de LEN() functie vertelt ons de 
totale lengte, compleet met 11 CHR$ 
(0) karakters, die we niet op het 
scherm zien. Een fout, die menig pro¬ 
grammeur de nodige hoofdbrekens 
heeft gekost, zeker, omdat alle contro- 
le-karakters in LEN() worden meege¬ 
teld, dus ook RVSON etcetera. Zeker 
een bug om rekening mee te houden. 


SET 1 

SET 2 

POKE 

SET 1 

SET 2 

POKE 

B 


105 

C 


117 
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□1 
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DB 
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Optellen 

We kunnen niet direct mathematisch 
met string-data aan het werk, maar 
één rekenkundige functie bezit het 
werken met strings wel, namelijk op¬ 
tellen. Het is in Basic mogelijk om op 
een bepaalde manier twee of meer 
strings bij elkaar op te tellen, waarbij 
dit optellen meer weg heeft van het 
aan elkaar plakken van de string-ge- 
gevens. 

Het volgende programma laat daarbij 
wat mogelijkheden zien: 

10 REM OPTELLEN STRINGS 

20 A$="DAG" 

30 B$="LIEVE" 

40 C$="MENSEN" 

50 S$=" " 

100 REM OPTELLEN 
110 X$=A$+C$ 

120 PRINT X$: REM 
’DAGMENSEN’ 

140 X$=A$+S$+B$+S$+C$ 

150 PRINT X$ : REM ’DAG LIEVE 
MENSEN’ 

Deze listing laat in het kort zien, wat er 
met een string kan, waar het betreft 
het ‘concatenaten’, optellen of aan el¬ 
kaar plakken van stringdelen. Niet 
spectaculair, maar vaak wel handig. 
Bij het printen van losse stringdelen is 
dit niet nodig, want PRINT A$S$B$S$ 
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C$ doet precies hetzelfde als regel 
140 en 150, maar daarbij hebben we 
nog geen waarde in X$. Dat moet ge¬ 
beuren op bovenstaande manier en 
resulteert daarbij in een gezegde van 
één van ’s lands bekende zangers uit 
vroeger dagen. 

Het aftrekken, delen, vermenigvuldi¬ 
gen en machtsverheffen met strings is 
helaas niet mogelijk. 

Bij het optellen van stringdelen moe¬ 
ten we er voor zorgen, dat de totale 
string een lengte krijgt kleiner dan de 
maximaal toelaatbare stringlengte 
van 255 karakters. 


ASCII waarde 

We kunnen gelukkig naast het optel¬ 
len ook aan de slag met het rangschik¬ 
ken van strings. Daarbij speelt de AS¬ 
CII waarde van de in de string aanwe¬ 
zige karakters een grote rol. Op grond 
van deze waarde wordt door de com¬ 
puter de ‘waarde’ van de string be¬ 
paald. Hoe groter de ‘waarde’ hoe ver¬ 
der achtering de string zal worden ge¬ 
sorteerd. 

In ons Basic database-programma 
hebben we bij het sorteren met Quick- 
sort gebruik gemaakt van deze ASCII 
stringwaarden. Voor de duidelijkheid 
ook hier een paar voorbeelden in een 
Basic-programma: 

10 REM STRING vergelijking 
20 PRINT "A$"; 

30 INPUT A$ 

40 IF A$ = "STOP" THEN END 
50 PRINT "B$ "; 

60 INPUT B$ 

100 IF A$ > B$ THEN 200 
110 IF A$ < B$ THEN 250 
150 PRINT "A$ gelijk aan B$" 

160 GOTO 20 

200 PRINT "A$ groter B$" 

210 GOTO 20 

250 PRINT "A$ kleiner B$" 

260 GOTO 20 

Door bij A$ en B$ diverse strings in te 
typen, wordt duidelijk, dat aan de 
hand van de ASCII-waarden, die zo 
gekozen zijn, dat de waarden corres¬ 
ponderen met ons alfabet, de strings 
kunnen worden gerangschikt. Ook 
verderop in de string kan de vergelij¬ 
king worden uitgevoerd. Geef voor A$ 
en B$ bijvoorbeeld respectievelijk de 
waarden: "AAAAAAABZ" en "AAAA- 
AAACX" en zie wat er gebeurt. De af¬ 
zonderlijke ASCII (American Stan¬ 
dard Code for Information Interchan- 
ge) codes -waar Commodore zich niet 





helemaal aan houdt- kunnen we per 
karakter ook op een andere manier te 
weten komen. Daarvoor hebben we 
de functie ASC(). 


ASC() 

Deze functie geeft als numeriek een 
‘Commodore’ ASCII waarde retour die 
overeenkomt met het eerste karakter 
uit de bepaalde string. 

ASC() is nodig bij het testen van indi¬ 
viduele karakters. Vooral bij scherm- 
manipulaties en toetsenbord-input is 
het nodig om van deze ASC() functie 
gebruikte maken. 

Ook is het in bepaalde gevallen snel¬ 
ler en simpeler te programmeren met 
ASCII-waarden dan de string-equiva- 
lent. Dit laatste gaat bijvoorbeeld op 
bij een ‘JA/NEE’ routine, waarbij input 
van het toetsenbord wordt gevraagd 
als "J" of "N". Bij het testen van de in¬ 
put kun je dan in principe kiezen tus¬ 
sen string en numerieke vergelijking. 
Aan de hand van een listing is het ver¬ 
schil duidelijk te zien: 

1000 REM INPUT-ROUTINE 
1010 REM J=74/N= 78 
1020 PRINT " J(A)/N(EE) 

1030 GET A$: IF A$="" THEN 1030 
1040 KY=ASC(A$) 

1050 IF KY<>74 AND KY <>78 
THEN 1020 
1060 RETURN 

Op deze manier ‘vertalen’ we als het 
ware de waarde van de input in een 
numerieke variabele (KY), waarmee 
gemakkelijker de test is uit te voeren. 
Het string alternatief ziet er zo uit: 

1000 REM INPUT-ROUTINE 
1010 REM J=74/N= 78 
1020 PRINT " J(A)/N{EE) 

1030 GET A$: IF A$="" THEN 1030 
1040 

1050 IF LEFT$(A$,1)<>"J" AND 

LEFT$(A$,1)<>"J" THEN 1020 
1060 RETURN 

Deze stringtest is gemakkelijker te le¬ 
zen (en dus te debuggen) dan de ‘AS¬ 
CII’ listing van dezelfde routine, maar 
daarnaast moeten we met meer en 
andere stringfuncties aan het werk 
(LEFT$) om hetzelfde doel te berei¬ 
ken. Korter en dus beter is het om de 
ASC() functie toe te passen. 

Er zitten een paar addertjes onder het 
gras, waar het de implementatie van 
deze functie op de meeste Commodo¬ 
re computers betreft. Zo kun je ASC() 
niet loslaten op een string met niks. 


Dus A$="": PRINT ASC(A$) stuit op 
de melding ‘7ILLEGAL QUANTITY 
ERROR’. Vandaar ook het blok in re¬ 
gel 1030 van de vorige routine, waar¬ 
bij direct de waarde ‘niks’ ("") wordt af¬ 
gevangen. 

Andere Basic-dialecten doen dit be¬ 
ter, door aan een string met "" de 
waarde 0 toe te kennen. Bij Commo¬ 
dore moeten we dit allemaal zelf 
doen. We kunnen dit uiteraard gemak¬ 
kelijk bewerken, door in plaats van bo¬ 
venstaande regel 1030 te schrijven: 

1030 GET A$ : IF A$ = "" THEN A$ 
= CHR${0) 

Dit heeft exact hetzelfde effect en leidt 
de interpreter van de Commodore om 
de ‘bug’ van de ASC() functie heen. 


CHR$() 

De tegengestelde functie van ASC() is 
een functie met de naam CHR$(). 
Deze functie converteert iedere nu¬ 
merieke waarde tussen 0 en 255 naar 
een string met lengte 1 en als inhoud 
het CBM-ASCII equivalente karakter. 
Met deze functie is het mogelijk om 
bepaalde karakters, zoals bijvoor¬ 
beeld TAB, BACKSPACE, RETURN, 
aanhalingsteken en ESCAPE op te 
nemen in een string, ermee te mani¬ 
puleren en te printen. 

Aan de hand van de ASCII-tabel is het 
niet moeilijk te bepalen welke waar¬ 
den aan CHR$() moeten worden ge¬ 
geven om bepaalde karakters te ge¬ 
nereren. Zo geeft CHR$(13) een RE¬ 
TURN terwijl CHR$(34) kan zorgen 
voor aanhalingstekens. Voor niet ge¬ 
hele getallen vindt bij CHR$() een af¬ 
ronding plaats, terwijl getallen buiten 
de range van 0 tot 255 voor een fout¬ 
melding zorgen. 

CHR$(500), CHR$(-2) en CHR$(A$) 
zullen dus niet door de Commodore 
worden uitgevoerd, terwijl CHR$(.2), 
CHR$(ASC("#")) en CHR$(255.9) tot 
een geldige evaluatie leiden. 

Ook CHR$(7) is een leuk karakter om 
mee te werken. Daardoor zal zowel op 
de printer ais in de computer tijdens 
het printen de bel gaan rinkelen. 
CHR$() kan ook goed worden toege¬ 
past bij het vertalen van ‘gePEEKte’ 
codes, waarbij de PEEK een karakter 
voorstelt. Ook het maken van relatief 
eenvoudige beveiligingen is mogelijk 
met hulp van CHR$(), omdat bijvoor¬ 
beeld CHR$(0) wel een karakter toe¬ 
voegt aan de lengte van een string, 
maar niet zichtbaar is op scherm of 
printer. Zie daarvoor onder ASC(). Als 


Commodore Info 1188 


afsluiting een paar toepassingsregels 
metCHR$(): 

10 X$ = CHR$(34) + CHR$(7)+ 
CHR$( 18 )+"NAAM"+ 
CHR$(146) + CHR$(34) 

De string NAAM wordt hier voorzien 
van aanhalingstekens en de karakters 
om deze string met BELL en RVS/ 
RVSOFF te printen. 

20 CL$ = CHR${147): REM Clear 
Scr66n 

30 PRINT CHR$(7) ; REM ring 
ring 

40 ES$=CHR$(27) : REM 

ESCAPE/ 

De escape kan worden gebruikt voor 
het aansturen van niet Commodore- 
printers. De meeste controlecodes 
voor normale printers duiden stuurco- 
deringen aan door het ESCAPE-ka- 
rakter als voorvoegsel mee te geven. 


Tot slot 

Tot zover deze wat uitgebreide afleve¬ 
ring specifiek over strings. De volgen¬ 
de keer zullen we doorgaan met dit 
onderwerp, waarbij we onder meer 
aandacht zullen besteden aan func¬ 
ties die rechtstreeks manipuleren met 
de inhoud van een string. Sterkte en 
veel programmeerplezier. Reacties 
en opmerkingen zijn altijd welkom op 
het redactie-adres. 


Jan Bodzinga 
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We schieten aardig op met onze cursus Machinetaal. De vorige aflevering was in z’n 
geheel gewijd aan onze nieuwe assembler, en deze keer zullen we de machinetaal- 
software eens aan de tand voelen. 

Cursus Machinetaal 

door Tjipke van der Land 

Deel 10: Assembler 


H et programmeren in machinetaal is in theorie mogelijk zonder verdere 
hulpmiddelen. Maar veel handiger is het, om gebruik te maken van een 
assembler/disassembier waarmee we de binaire machinetaal-codes in wat 
beter leesbare taal kunnen verwerken. De computer zelf komt ons daar ge¬ 
lukkig bij te hulp. 


Deze keer gaan we door met de as¬ 
sembler. De voordelen hiervan zullen 
inmiddels wel duidelijk zijn en daarom 
gaan we gelijk maar eens kijken hoe 
de assembler werkt. Hopelijk is het in¬ 
typen van de volledig listing gelukt. Zo 
niet, dan bestaat de mogelijkheid om 
via Infolist een tape of disk met de lis¬ 
ting aan te schaffen. Voor het werken 
van de assembler moet je een aantal 
commando’s kennen die alleen maar 
betrekking hebben op de assembler. 
Deze opdrachten worden dus uitslui¬ 
tend gebruikt om de Assembler te be¬ 
sturen en hebben geen enkel effect op 
het uiteindelijke programma. 
Bijvoorbeeld hoe kan ik een program¬ 
ma en een list opvragen van de op dit 
moment aanwezige machinetaalco- 
de? Hoe kan ik mijn urenlange arbeid 
op papier krijgen? 

Dit zijn allemaal vragen, waar je zo 1, 
2, 3 niet op komt, maar pas wanneer 
je vurig aan het programmeren bent 
worden ze evident. Dus is het verstan¬ 
diger om eerst even te bekijken hoe 
deze kommando’s werken, voordat je 
een heleboel werk voor niets doet. En 
dit is wat we juist willen voorkomen 
met onze mini-assembler. 


Opdrachten 

In de lijst hiernaast vindt je alle kom¬ 
mando’s die we nodig hebben voor 
het programmeren. We gaan niet alle 
kommando’s op het rijtje af behande¬ 
len, omdat dat eigenlijk een beetje 
saai is. We gaan gewoon kijken naar 
wat de meestgebruikte instructies zijn, 
om een programmate kunnen maken. 


Om te beginnen moeten we dus ma¬ 
chinetaal instructies in de computer 
stoppen (zie afb. 1). 

Stel we willen een programma invoe¬ 
ren dat begint op een adres $ 1000. 
De instructies die we willen gaan in¬ 
voeren, en die door de mini-assem¬ 
bler worden omgezet in voor de com¬ 
puter begrijpelijke getallen, moeten 
worden geassembleerd, dus is het lo¬ 
gisch dat onze eerste assembler-in- 
structie de A is van assembleren. Op 
het scherm zien we een punt (.) als de 
assembler is ingeladen en via SYS 
49152 is gestart, als teken, dat we een 
opdracht in kunnen typen. 

Het begint dus allemaal met de "A" 
met daarachter het adres waar je wilt 
beginnen. Daarachter komt de machi- 
netaali-nstructie die we willen gaan 
gebruiken. Bijvoorbeeld: 



.A $1000 LDA#$17 


Je ziet als je op de RETURN toets 
drukt dat je daarna de volgende in¬ 
structie kunt invoeren, omdat de as¬ 
sembler weet dat LDA #$17 geen der¬ 
de Byte voor z’n adres nodig heeft. De 
Assembler kent dit type instructie als 
een ‘immediate’. Je moet toch wel iets 
meegeven, waardoor de assembler 
kan weten, dat het geen adres is, 
maar een instructie waarbij een waar¬ 
de onmiddellijk (immediate) naar een 
register moet worden geschreven. Dit 
doe je door het "#" tekentje voor het 
hexadecimale getal ($17) neer te zet¬ 
ten. Als je goed kijkt dan zie je ook dat 
de assembler precies het juiste aantal 
Bytes reserveert voor de instructie(s) 
die je hebt ingevoerd. Op deze manier 
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Instructietij st assembler 

Kommando’s 


Starten mini-assembler 

Bijv sys 49152 (CR) 


A = assembleren 

D = disassembleren 

F = Vullen van geheugen 

G = Starten van programma 

H = Zoeken naar data 

L = Laden van Programma’s 

M = Overzicht geheugen 

P = Printen bron programma 

R = Afdrukken registers 

S = Opslaan van programma’s 
T = Verplaatsen geheugenblok 
X = Stoppen miniassembler 

Bijv. .a 1000 LDA $3000 

Bijv. .dlOOO 

Bijv. .f1000 2000 FF 

Bijv. .g 1000 

Bijv. .h 2000 2100’JAN’ 

Bijv. .1 "Jan Kl",08 

Bijv. .m 10001050 

Bijv. .p 1000 1100 

Bijv. .r 

Bijv. .s 1000 1060 

Bijv. .11000 2000 4000 

Bijv. . X 
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kun je dus gewoon verder gaan met 
instructies invoeren. 


Koek en ei 

Er is helaas één ‘maar’ aan deze 
prachtige manier van programmeren. 
Net als bij alle andere wat complexe 
handelingen geldt ook hier; Bezint eer 
ge begint. 

Je moet beslist geen structurele fout 
maken, door bijvoorbeeld een imme- 
diate-instructie in te voeren terwijl het 
een absolute instructie moet zijn. Kom 
je daar een beetje laat achter dan zit 
je met een probleem, omdat je dan 
een Byte te kort komt. Dit is heel las¬ 
tig, want dan moet je rest van je pro¬ 
gramma een stuk opschuiven, met de 
assemblerinstructie ‘T’. Voor relatieve 
programma sprongen is dit helemaal 
niet erg, maar als je echt een jump 
maakt naar een specifiek adres dan 
moetje al deze instructies nalopen om 
ze te verbeteren. Het is dan ook het 
beste om zoveel mogelijk relatief te 
gaan springen in een programma. 

Relatief gespring 

Tot nu toe hebben we het nog niet ge¬ 
had over relatieve sprongen maken 
binnen een programma. Maar dat 
kunnen we in deze les mooi meepak¬ 
ken, omdat dit toch één van de meest 
gebruikte machinetaal instructies is. 
Wat we wel hebben behandeld is het 
echte 'springen’ naar een plek door 
middel van JMP instructie. Deze in¬ 
structie gaat gelijk naar de plek (het 
adres) dat je aanwijst. Maar je kunt 
ook een instructie geven, waar je zegt 
van spring maar 60 sprongen terug 
naar een adres of sub-programma wat 
daar staat. Deze manier van springen 
doen we meestal aan de hand van be¬ 
paalde condities, bijvoorbeeld staat er 
een flag op nul, of een register is leeg. 
Op het moment dat je dan een heel 
stuk programma moet ‘moven’ (ver¬ 
plaatsen), wat dus kan met de mini- 
assembier, dan is er in principe geen 
verschil gekomen in het relatief sprin¬ 
gen, want dat sub-programma staat 
nog steeds 60 sprongen terug ten op¬ 
zichte van het uitgangspunt. De abso¬ 
lute adressen zijn echter wel veran¬ 
derd, en dan kom je met een absolute 
sprong-instructie zoals JMP $ 4501 
niet meer op de goede plek. Dit is ook 
één van de nadelen van een mini-as- 
sembler; maar ja, je kunt niet alles 
hebben. 

Inmiddels zijn we weer een beetje af¬ 
gedwaald van waar we mee bezig wa¬ 


ren, namelijk de assembler instruc¬ 
ties. Maar desalniettemin moeten we 
dit goed onthouden, want we gaan het 
bovenstaande straks uitwerken in een 
voorbeeld, waardoor we er gelijk weer 
wat instructie’s bij leren. 

Bewaren 

Het belangrijkste wat we nu gaan le¬ 
ren, is het eerst opslaan (SAVEN) van 
het programma, hoeveel fouten er na 
de eerste invoer ook in zitten. Waar¬ 
om doen we dat ? 

Dit gebeurt om ons een hoop onnodig 
tikwerk te besparen. Ondanks dat we 
inmiddels zielsgelukkig zijn met zo’n 
geavanceerde mini-assembler, waar¬ 
door het een stuk gemakkelijker is ge¬ 
worden, is het overtikken van een 
hoop denkwerk het beroerdste wat er 
is. 

Want wat gebeurt er nu: na het invoe¬ 
ren van de laatste brandende instruc¬ 
tie’s die nog nodig waren om het pro¬ 
gramma te voltooien typen we daarna 
vlug de verlossende instructie: 


■g $1000 

wat betekent: Ga naar de start van het 
programma wat begint op adres 
$1000 en RUN. En, wat een ontredde¬ 
ring, het programma loopt vast, want 
we hebben vergeten tijdens het ‘mo¬ 
ven’ een JMP instructie aan te pas¬ 
sen. 

Heel spijtig allemaal, want nu had je 
net iets moois bedacht, en dat moetje 
nu allemaal weer opnieuw bedenken. 
Heel spijtig ! 

Het beste wat je in zo’n situatie kunt 
doen is de computer uitzetten, en 
maar een stripboekje gaan lezen, 
want computers zijn toch maar rotdin¬ 
gen. Niets is minder waar, want het is 
je eigen schuld. Als je de moeite had 
genomen om het programmeer pro¬ 
ces nog even met 1 minuut te verlen¬ 
gen door het programma te saven 
voor het testen, dan is een computer 
in één keer geen rotding meer. Dus al¬ 
tijd voor het testen eerst saven. 


COMMENTAAR 

;Getal laden voor ASCII nivo laag 
;Parameter plaatsen 
lOphalen letter 1 

;Plaatsen van letter 1 In videogeh. 
lOphalen letter 2 

iPlaatsen van letter 2 in videogeh. 
;Enz. 

lOphalen van spatie 

iPlaatsen van spatie in videogeh. 

lEnz. 


Het programma: 

MNEMONIC HEX 

LDA#$17 A9 17 
STA $0018 80 18 00 
LOA $2000 AO 00 20 
STA $0578 O 78 05 
LDA $2001 D 01 20 
STA $0579 80 79 05 
LOA $2002 AO 02 20 
STA$057A 8D7A05 
LDA $2003 AD 03 20 
STA $057B 8D 7B 05 
LDA $2004 AD 04 20 
STA $057 8D 7C 05 
LDA $200 AD 05 20 
STA $0570 8D 7D 05 
LDA $2006 AD 06 20 
STA $057E 8D 7E 05 
LDA $2007 AD 07 20 
STA $057F 8D 7F 05 
LDA $2008 AD 08 20 
STA $0580 8D 80 05 
LDA $2009 AD 09 20 
STA $0581 8D 81 05 
LDA $200A AD OA 20 
STA $0582 8D 82 05 
LDA $200B AD OB 20 
STA $0583 8D 83 05 
NOP EA 

BNE$104D DOFD 

ILOOP VIA NOP (NO OPERATION) 
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Voorbeeld 

Hoe het saven, moven en starten van 
een programma in zijn werk gaat, 
gaan we nu door middel van een voor¬ 
beeld duidelijk maken. Als je de vori¬ 
ge keer al wat met de assembler hebt 
geoefend, met het voorbeeld van de 
vorige keer, dan zal het wel een bee¬ 
tje dagen, denk ik. Maar voor de een¬ 
voud beginnen we maar even bij het 
begin. Na het laden en starten van de 
assembler staat hij uiteraard start¬ 
klaar om gebruikt te worden. 

Om te assembleren moeten we dus 
invoeren .a $"begin adres" "instruc¬ 
tie", dus: 

.A$1000 LDA#$17 
of .A $1000 LDA$1000. 

Na de return geeft de mini assembier 
automatisch het veronderstelde vol¬ 
gende adres, waar de eerstvolgende 
instructie moet komen. 

Vervolgens kun je gewoon alle in¬ 
structies die je wilt invoeren gaan in¬ 
tikken zonder dat je het adres nog¬ 
maals hoeft op te geven. Het voordeel 
is daarbij, dat je niet hoeft te tellen uit 
hoeveel "statements" (Bytes) iedere 
instructie bestaat, dat doet gelukkig 
de mini-assembler. 

Voor het stoppen met assembleren 
voer je geen enkele instructie In, maar 
geef je gewoon een return op een lege 


regel. Wil je na het invoeren van het 
programma, wat zo groot kan zijn dat 
je het niet meer compleet kunt bekij¬ 
ken op het scherm, toch een volledige 
listing, dan kun je door het invoeren 
van. M "begin adres" "eind adres", bij¬ 
voorbeeld: 

.M 1000 1050 


het gedeelte overzien, wat je op dat 
moment wilt bekijken. Je ziet dan niet 
de instructies zoals je ze ingevoerd 
hebt, maar alles zoals het door de 
mini-assembler is vertaald in hexade- 
cimalen. 

Wil je hierin toch nog een verandering 
aanbrengen, dan kun je gewoon met 
de cursor naar het gewenste hexade- 
cimale getal en deze wijzigen. Dit kan 
voorkomen als je bijvoorbeeld een off- 
set-sprong wilt verbeteren of een 
jump. 

Disassembly 

Wil je de ingevoerde instructies weer 
terugzien zoals je ze ingevoerd hebt, 
dan kan dat door in te tikken: 

.D$1000. 

Met de "D" geef je aan dat je wil disas- 
sembleren, dus ontleden. Verder 
werkt deze instructie net als bij de A 
van assembleren. Als we een pro¬ 
gramma hebben ingevoerd gaan we 
eerst het gehhel opslaan. Zorg er voor 
dat je een geformatteerde schijf in je 
drive hebt zitten zonder ’write protect’, 
daarna intikken: 

(S"jan kl",08,1000,1051 ) 

Je ziet nu dat het programma veilig is 
weggeschreven. Voor de gebruikers 
onder ons die een cassette-deck heb¬ 


ben, moeten hetzelfde invoeren, al¬ 
leen voor de "08" een "01" neerzetten. 
Voordat we het kunnen testen moeten 
we nog even de hexadecimale waar¬ 
den die het woord JAN KLAASSEN 
vormen in het geheugen zetten. In het 
voorbeeld van de vorige keer konden 
we zien dat we POKEten vanaf adres 
8192 decimaal, wat dus $2000 hexa- 
decimaal is. Dit is nu veel makkelijker 
dan de vorige keer want we kunnen nu 


de waarden rechtstreeks invoeren, 
door in te tikken: 

:2000 4A 41 4E 20 4B 4C 41 41 (re¬ 
turn) 

vervolgens: 

:2008 53 53 45 4E (return) 

Je ziet dat we maar 8 Bytes invoeren 
per regel, meer kan namelijk niet. Je 
kunt nog even controleren of alles 
goed is door in te tikken: 

.M 2000 2050 

waar je de ingevoerde Bytes kunt zien 
vanaf adres $2000. Daarna kunnen 
we het programma testen door in te 
tikken: 

■g 1000 

Om de letters zichtbaar te houden 
hebben we het programma even in 
een lus gezet, want anders zie je de 
letters maar zo kort (ongeveer 1/50 
sec), dat je niet kunt lezen wat je ge¬ 
maakt hebt. Als het goed is zie je tus¬ 
sen de getallen "JAN KLAASSEN " 
staan of je eigen naam als je de moei¬ 
te hebt genomen om die in ASCII over 
te zetten. Door te drukken op "RUN 
/STOP RESTORE" kom je terug in de 
monitor. 


Nieuwe instructies 

Omdat we nu zover zijn dat we simpe¬ 
le programma’s op de monitor kunnen 
maken, gaan we het zojuist gemaakte 
programma verbeteren met nieuwe 
instructies. Je kunt dan ook zien dat 
met een beetje meer denkwerk veel 
minder tikwerk kan worden bewerk¬ 
stelligd. Om dit probleem op te lossen 
gaan we gebruikmaken van de regis¬ 
ters die standaard aanwezig zijn in de 
65xx. De registers waar we het over 
hebben staan in onderstaand sche¬ 
ma, wat overigens ook al in een voor¬ 
gaande uitgave heeft gestaan. De re¬ 
gisters die we bedoelen zijn het X en 
Y register, deze registers gaan we da¬ 
delijk gebruiken als teller, om te 
adresseren. Tot nu toe hebben we ge¬ 
woon een waarde geladen en opge¬ 
slagen. Dit kan veel handiger. Zoals 
we inmiddels weten zijn er diverse in¬ 
structie methoden voor één instructie. 
De methode die we er nu leren is na¬ 
melijk het geïndexeerd adresseren. 
Deze manier geldt zowel voor het la¬ 
den van de accumulator, alsook voor 
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Het programma: 

MNEMONIC COMMENTAAR 

LDX #$00 

X REGISTER LADEN MET 0 

LDA #$17 

ACCU LADEN MET $17 VOOR ASCII NIVO LAAG 

STA$D018 

PLAATSEN PARAMETER 

LDA $2000,X 

LAAD ACCU GEÏNDEXEERD X 

BEQ $1013 

SPRING NAAR ADRES $1015 ALS Z FLAG = 1 

STA $0578,X 

SLA HET GETAL GEÏNDEXEERD X OP 

INX 

VERHOOG X MET 1 

JMP$1007 

SPRING NAAR ADRES $1007 

BRK 

TERUG NAAR MONITOR 


het opslaan in de accu. Hiervoor is het 
nodig om nog een paar instructie bij te 
leren, om ons bovenstaande pro¬ 
gramma te optimaliseren. We begin¬ 
nen met het geïndexeerd op register X 
laden van de accu. Dit betekent in 
principe hetzelfde als absolute, maar 
hier wordt de waarde die geladen is in 
het X register opgeteld bij het absolu- 
■^0 

Dus als we de instructie LDA $1000,X 
laten uitvoeren door de assembler, en 
de waarde in het X register is op dat 
moment 5, dan laadt de accu zijn 
waarde van adres $1000 -i- $5 in totaal 
$1005 binnen. 

Als we deze instructie op deze manier 
invoeren, weet de assembler dat hij 
geïndexeerd op X moet adresseren, 
^rvolgens is er de ‘implied instructie’ 
INX, die de waarde in het X register 
met 1 verhoogt. 

In het onderstaande programma, wat 
de geoptimaliseerde versie is van de 
vorige listing, kunnen we goed het 
verschil in lengte onderscheiden. 


We zullen het programma stapje voor 
stapje doornemen om het een beetje 
duidelijk te maken. Op deze manier 
kunnen we ook de nieuwe instructies, 
die op zich niet moeilijk zijn even door¬ 
nemen. 


Programma-flow 

We beginnen in het programma met 
het laden van getal 0 in het X register. 
Dit doen we om er zeker van te zijn dat 
er ook echt 0 in staat, dit om te voor¬ 
komen dat er niet nog een getal in blijft 
staan van een vorig programma. Ver¬ 
volgens gaan we de computer instel¬ 
len met een paar waarden die nodig 
zijn voor het instellen van kleine let¬ 
ters, zodat Jan Klaassen zichtbaar 
wordt in de vorm zoals we hem graag 
zien, en niet in grafische tekens. Dan 
begint het echte programma, door het 
getal te laden geïndexeerd X van 
adres $2000. Omdat de waarde in X 0 
is, (zojuist geladen) haalt hij het adres 
van $2000, omdat $2000 -i- 0 = $2000. 
Hier staat het eerste ASCII getal, na¬ 
melijk 4A. 

Dan staat er een nieuwe instructie, 
namelijk BEQ. Deze betekent Branch 
if equal to zero, vertaald in neder- 
lands, maak een sprong onder de 
conditie dat de waarde 0 is. Deze in¬ 
structie kijkt naar de status flags. 
Wanneer de Z flag 1 is, wat betekent 
dat de waarde nul is, gaat hij een rela¬ 
tieve sprong maken. Het relatief sprin¬ 


gen betekent zoveel sprongen voor¬ 
uit, of als het getal achter de sprongin- 
structie negatief is, bijvoorbeeld "FC", 
dan springt hij even zoveel bytes te¬ 
rug. In de assembler kunnen we het 
adres opgeven waar we hem naartoe 
willen laten springen. Het programma 
(assembler) berekent dan zelf wat de 
offsetwaarde moet worden. Als je kijkt 
bij de hex waarde die bij de instructie 
staat, dan zie je dat dit $07 (positief 
dus 7 sprongen vooruit). Als je gaat 
tellen zul je tot de ontdekking komen 
dat je 1 tekort komt om de BRK in¬ 
structie te halen. Dit komt omdat de 
programmateller na het uitvoeren van 
een instructie zichzelf alvast met 1 
verhoogt, omdat hij daar toch de vol¬ 
gende Instructie moet halen. Met dit 
gegeven in ons achterhoofd komen 
we dus wel op de BRK instructie te¬ 
recht. 

Om terug te komen op het program¬ 
ma, in dit geval springt de Programma 
counter niet, omdat de accu geladen 
was met het getal $4A (’J’) en dus niet 
0 is, gaat hij door met het geïndexeerd 
wegschrijven van die waarde in het vi- 
deogeheugen, adres $0578 + 0 = 
$0578. 

Daarna de implied instructie INX, die 
de waarde in het x register met 1 ver¬ 
hoogt. Vervolgens springt hij terug 


I n Commodore Info nr. 7 van afgelo¬ 
pen jaar (Jrg.4) zijn wat foutjes ge¬ 
slopen in het artikel over RESETten 
(pag.62). 

Schrijver S. Hol stuurde ons een aan¬ 
tal opmerkingen hierover: 

° Het woord ‘connector’ en ‘uitgang’ 
wordt door elkaar gebruikt, maar 
betekent hetzelfde in dit verband. 

° De eerst genoemde opdracht in het 
artikel moet zijn; 


naar adres $1007, achter de instructie 
om X te laden met 0, dit omdat anders 
het verhogen van X geen zin heeft. 
Daarna gaat hij weer een getal 
geïndexeerd X laden, maar dit keer is 
het adres $2001, omdat het default- 
adres $2000 is -i- de $01 van het X re¬ 
gister wat in totaal $2001 is. Op deze 
wijze schrijft hij de waarde ook weer 
weg, en doet dit net zo vaak totdat hij 
het karakter 0 tegen komt bij de BEQ 
instructie, wat aan het einde van de 
string ( JAN KLAASSEN ) staat. 

Dus niet vergeten om achter de hex 
waarde $4E de waarde $00 te zetten, 
want anders zal het programma het 
hele geheugen op je scherm printen 
net zolang tot hij een 0 tegen komt. 


En verder.... 

Dit zijn alweer een paar instructies er¬ 
bij waar je wat mee kunt experimente¬ 
ren. Als het je nog niet helemaal dui¬ 
delijk is, is het op dit moment nog te 
vroeg voor paniek, want we gaan de 
volgende keer nog wat dieper op dit 
alles in. Je kunt in ieder geval al wat 
spelen met de assembler. Dus alvast 
maar sterkte met de assembler en tot 
de volgende keer. 

Tjipke van der Land 


POKE 2050,8 : SYS 42291 : 

POKE 46, 

PEEK (35)-(PEEK(781)253): 

POKE 45, 

PEEK(781)+2 AND 255 

De schrijver van dit artikel werkt bij de 
firma TurboSoftware(inc) te Olden- 
zaal. 


Misser! 
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